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Disclaimer of All Liability 



Plain English Version: 

Do not use this manual or the CFFA Interface card for any mission- 
critical applications, or for any purpose, in which a bug or failure could 
cause you a financial or material loss. This product was designed to 
enhance your Apple II computing experience, but may contain design 
flaws that could inhibit its proper operation, or result in a loss of the 
data recorded on the storage devices attached to it. When using this 
product you assume all risks associated with operation or data loss. If 
these terms are not acceptable, you may return the product for a 
refund. 



Legalese Version: 

Richard Dreher, doing business as R&D Automation, makes no 
warranties either express or implied with respect to this manual or with 
respect to the software or firmware described in this manual, its 
quality, performance, or fitness for any particular purpose. All software 
and firmware is sold or licensed "as is". Any risk of incidental or 
consequential damages resulting from the use of the information in 
this manual or the software / firmware / hardware described herein, 
shall be assumed by the user or buyer or licensee. In no event will 
R&D Automation be liable for direct, indirect, incidental or 
consequential damages resulting from any defect in the software / 
firmware / hardware described in this manual. 

R&D Automation reserves the right to make changes and 
improvements to the product described in this manual at any time and 
without notice. 
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Basic Information 




Warranty and Return 
Information 



You may return the CFFA Interface card for any reason within 90 days 
of receiving it. This should allow you enough time to evaluate the 
compatibility with your system. I guarantee your CFFA Interface card 
to be free of defects under normal usage for a period of one year from 
the date you receive the product. This means that if the card fails, and 
you have treated it properly, I will repair, replace, or refund your 
money at my discretion, to be determined by me on a case by case 
basis. 

If you want to return the product under warranty, please contact me via 
E-mail to discuss return arrangements. Include your name and the 
serial number from the sticker on the back of the card. It is your 
responsibility to get the product you are returning back to my door. I 
will not be responsible for lost shipments. Please choose shipping 
methods and insurance as you deem necessary. 



Warnings 



You should avoid electrostatic discharge to the CFFA Interface card. 
Like all electronics devices, static "shock" can destroy or shorten the 
life span of the CFFA Interface card. Avoid touching the CFFA 
Interface card after you have walked across the room, especially over 
carpet, and especially in dry weather. 

You should safely discharge yourself before you handle the CFFA 
Interface card. This can be done by momentarily coming into contact 
with a grounded piece of metal. 

In all cases, please exercise common sense and observe all electrical 
warnings provided by the manufacturers of the equipment you are 
using. 



Quick Start Instructions 



Most Apple II users will probably not need instructions to install the 
CFFA Interface card, but I have included Quick Start instructions, 
below, as well as more detailed information in the next section. The 
information provided will give you insights into the behavior of the 
card, so you may better know what to expect. 

1 . Discharge yourself of excess static charge. 

2. Open and remove the CFFA card from the anti-static bag. 

3. Set the shorting-block jumpers for the desired firmware version. 
For most people the default jumper settings should work fine. See 
Table 2: Firmware Select Jumper Settings, page 26 for details. 

4. Attach a storage device. Insert a CompactFlash card* or connect 
an IDE hard drive, but not both. 

*IMPORTANT: Many CF cards have a ridge or lip that may catch on the CFFA's 
top edge during insertion. In this case it may seem to require a large force to 
completely insert the card. Do NOT force it — simply lift the CF card's ridge over the 
top edge of the CFFA board and finish inserting the CF card. 

5. Turn off power to your Apple Computer. 

6. Insert the CFFA Interface card into any empty Apple slot. 
Typically, slot 7 is used for mass storage devices. 

7. Turn on your Apple computer. Assuming the attached storage 
device is not formatted yet, your computer will boot off another 
device. 

8. The CFFA partition scheme is fixed so no user partitioning is 
necessary or possible. You simply need to format any or all drives 
on the device using any software that can format a ProDOS 
volume. I recommend Apple's System Utilities version 3.1 or later. 
Remember that every drive after the second drive will show up in 
another slot than the one the CFFA is actually using. 

9. If you want to be able to boot from the device, after formatting the 
drive(s), ProDOS users will have to copy ProDOS and a startup 
program like BASIC. SYSTEM to the first drive. I recommend using 
ProDOS version 2.0.3. GS/OS will need to install Apple llgs 
system software from floppies or another drive. 

10. Before using the card for storing information that you would care 
not to lose, spend some time testing the CFFA card in your 
particular environment. In any case, always backup important data 
onto multiple sources. 



Installation Details 



The CFFA Interface card comes in an anti-static bag. This bag is a 
good place to store the card at times when the card is not installed in a 
computer. Before opening the zip-top bag, be sure you do not have a 
static charge built up in your body. 

The CFFA Interface card can be installed in any Apple II slot. 
Depending on which Apple and what firmware or driver you are using, 
you may get varying degrees of functionality based on which slot you 
use. The card was designed to physically fit into any slot when using a 
CompactFlash device. If you mount a 2.5 inch hard drive onto the card 
(using standoffs and the drive mounting holes), I recommend using 
slot 7 because the hard drive will not interfere with the slots next to it. 



CFFA Partition Sclieme 

The CFFA Interface card uses a fixed partition scheme described in 
Table 1 below. If you are using ProDOS 8 and Firmware #0 you will 
see up to four 32 MB drives. If you are using GS/OS and the 
COMPACTFLASH driver will see up to 6 drives: up to four 32 MB 
drives and up to two 1 GB drives. 

Table 1: CFFA partition sclieme 



1 

Drive # will exist for... Device of size: 


Drive 1 (up to 32 MB) 


Any Size 


Drive 2 (up to 32 MB) 


> 32 MB * 


Drive 3 (up to 32 MB) 
ProDOS 2.x or later 


>64MB 


Drive 4 (up to 32 MB) 
ProDOS 2.x or later 


>96MB 


Drive 5 (up to 1 GB) 

GS/OS with COMPACTFLASH driver 


> 128MB 


Drive 6 (up to 1 GB) 

GS/OS with COMPACTFLASH driver 


> 1152 MB 



* Please note ttiat ttie marketing departments of most device manufactures now define 
"MB"to mean 1 ,000,000 bytes instead of the more proper 1024x 1024 = 1,048,576 
bytes. 
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The following are a few example configurations for different device 
sizes: 

• A 16 MB CF card gives you 1 drive: Drive 1 = 16 MB. 

• A 48 MB CF card gives you 2 drives: Drive 1 = 32 MB, 
Drive 2 = 16 MB. 

• A 128 MB CF card gives you 4 drives: Drive 1 = 32 MB, 
Drive 2 = 32 MB, Drive 3 = 32 MB, Drive 4 = 32MB. 

If you are using GS/OS, you will get the stated drive size 
configurations: 

• A 1 GB IDE Hard Drive gives you 5 Drives: Drive 1 = 32MB, 
Drive 2 = 32 MB, Drive 3 = 32 MB, Drive 4 = 32 MB, Drive 5 = 
896 MB 

• An 1 .6 GB IDE Hard Drive gives you 6 drives: Drive 1 = 32 
MB, Drive 2 = 32 MB, Drive 3 = 32 MB, Drive 4 = 32 MB, Drive 
5 = 1024 MB, Drive 6 = 486 MB 



Apple II Boot Procedure with CFFA Interface 
Card Installed 

When the Apple II boots, it begins a slot scan process, starting with 
slot 7, or Startup Slot on a llgs, looking for a bootable device. If no 
bootable device is found in that slot it then proceeds to the next lower 
slot. For example, if you install your CFFA card into slot 7 with an 
unformatted device connected to it (as you might after having just 
received your card), the CFFA firmware will be called by the Apple's 
ROM because the CFFA Interface card will be recognized as a 
storage device. 

After the card's firmware is called, it will check to see if a device is 
attached to the card. If a device is found, it will attempt to read the 
boot block off of the device into memory at location $800. The 
firmware will wait up to 10 seconds (on a 1MHz Apple) for a device to 
respond. If no device is found it will return control to the Apple's boot 
scan ROM routine and the next lower slot will be checked. 

If a device was attached and the boot block was read into memory, the 
firmware will then check to see if the first byte of the boot block code is 
equal to $01 and the second byte is not equal to $00. If both 
conditions are met, the firmware will jump to the boot block code and 
the boot sequence will proceed under the boot code's control. If both 
conditions are not met, the firmware will return control to the Apple's 
boot scan ROM routine. See Figure 1 for a flow chart diagram of the 
boot sequence logic. 
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Figure 1: Apple II boot sequence logic with CFFA Interface card. 
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CompactFlash Memory Cards 

This section provides detailed information specific to the use of 
CompactFlash (CF) memory cards with the CFFA Interface card. 



CompactFlash Socket 

Connector J3 labeled "CompactFlash Socket" is a Type II socket. This 
allows you to connect either Type I flash cards or Type II devices, 
such as the IBM Microdrive. The socket is hardwired to use the 
attached device's "True IDE" compatibility mode. It is also hardwired to 
address the device as an IDE master. 

When inserting a CF card into the CFFA, you should insert the card 
label side out. It should not take much effort to insert a card. After the 
socket pins start to engage the card, a little extra force is needed to 
fully mate the two. 

IMPORTANT: Many CF cards have a ridge or lip that may catch on the CFFA's top 
edge during insertion. In this case it may seem to require a large force to completely 
insert the card. Do NOT force it — simply lift the CF card's ridge over the top edge of the 
CFFA board and finish inserting the CF card. 

TIP: To make CF card removal much easier you can fashion a handle by folding a piece 
of cellophane tape over the top of the CF card that extends up about an inch (2.5 cm). 



CF Advantages 

CompactFlash cards have several advantages over traditional hard 
drives. 

• CF cards are solid state memory devices which are 
completely silent and more reliable than IDE hard drives. 

• CF cards use less power and generate less heat than IDE 
hard drives. 

• CF cards have no seek delay times related to mechanical 
head movement. All data in a CF card is accessed at the 
same speed. 
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CF Disadvantages 

CompactFlash cards do have a few disadvantages when compared to 
traditional hard drives. 

• The cost per megabyte is higher for CF cards. 

• Each sector on a CF card can only be written to a limited 
number of times. This is the write cycle endurance, and is a 
specification of the CF card itself, and not the CFFA Interface 
card. You can typically find endurance specifications for CF 
cards on the manufacturer's web site. For example, SanDisk 
Corporation specifies that their SDCFB-XX line of CF cards 
has an endurance of greater than or equal to 300,000 write 
cycles per block. 

Because SanDisk CF cards can dynamically reorganize blocks that 
are causing errors, this effectively extends the useable life of their 
product. 

If you are using the CFFA interface card in a system that is doing a 
very large number of write operations to the connected device, you 
may want use an IDE Hard drive instead of a CF card. 



CF Removability 

Although most CF cards are used in a "removable" sense, the CFFA 
interface card does not treat a CF card as a removable device. The 
card's firmware does not report to either ProDOS or GS/OS that it 
supports removable devices. You should not treat it like a removable 
device. In other words, if you want to remove the CF card from the 
CFFA interface card, shut down your computer first. 

Removing the card with the computer's power on will not hurt the CF 
card, but if you plug the card back in, you will not be able to access the 
data until you do a complete power cycle of the computer or a reset* of 
the card. The reason the CF card is not "removable" is that it is being 
used in the "True IDE" mode and should be thought of as a normal 
hard drive. For the same reason you don't pull out your hard drive with 
the power on, you should not pull out a CF card with the power on. 

'Reset of the card will occur when the Apple performs a reset, as long as the CFFA 's 
reset enable jumper J2 is installed. 
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IDE Drives 

This section provides detailed information specific to tine use of IDE 
hard drives with the CFFA Interface card. 



IDE Drives Compatible with the CFFA 

Most IDE drives should be compatible with the CFFA Interface Card. It 
is necessary for the IDE drive to support LBA (Logical Block 
Addressing) mode in order to work with the CFFA card. All IDE drives 
larger than 528 MB today support this mode. Most old IDE drives 
smaller than 528 MB did not support LBA and therefore will not work 
with the CFFA card. If in doubt, try your drive to see if it works. 



IDE Drive Connector 

Connector J5 labeled "IDE" allows you to connect a single IDE hard 
drive. Pin 1 of this connector is at the top of the board next to the label 
"J5". A drive connected to this connector should be set to a "Master" 
drive and any CompactFlash card should be removed from the 
CompactFlash socket J3. The firmware shipped with the CFFA card 
doesn't currently support drives set to "Slave". If you set your drive to 
"Slave" you may be able to leave it connected while you are using a 
CF card, but you will not be able to access the drive until you set the 
drive back to "Master" and remove the CF card. 



IDE Power Connector 

Connector J1 labeled "IDE POWER" on the CFFA Interface card is 
provided to supply power to an IDE hard drive that you connect to J5. 
This connector provides access to the Apple's power supplies: +5v, 
+12v, and Ground. It is up to you to ensure that the device you attach 
to this connector does not consume more power than the Apple's 
power supply is capable of delivering. Remember to consider the load 
of all the other devices in your system. 

J1 power connections are labeled as follows: 

• +5v DC is labeled "5v-RED" 

• +12v DC is labeled "12v-YEL" 

• Ground is labeled "GND-BLK" 

The labels RED, YEL, and BLK written on the CFFA PCB silkscreen 
show the standard wire colors used by most IDE drive connectors. 
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Because J1 , the power connector, is a screw terminal type and 
requires you to connect wires, it is not fool proof. This connector can 
be miswired. Miswiring could cause the destruction of the IDE hard 
drive, the CFFA Interface card, and possibly your computer. Use 
caution, and observe polarities when connecting power to an IDE 
drive. 

IMPORTANT: It is your responsibility to be sure that the device you attach to connector 
J1 is wired correctly, regardless of the wire colors involved. 



Mounting Holes for 2.5" Drives 

The CFFA Interface card has four mounting holes for a standard 2.5 
inch hard drive. The card has been designed so that a hard drive could 
be mounted on the top (component side) of the board using stand-offs 
or screws. By mounting the drive on the top of the board and placing it 
in slot 7 you will not have to sacrifice another slot or lay the hard drive 
on top of the computer's power supply. Figure 2 shows the drive 
mounting arrangement described above. The little circuit board with 
the "CE" label on it is a connector converter board that converts from 
the fine pitch pin spacing .05" of 2.5" hard drives to the standard .1" 
spacing used by IDE cables. This adapter is not provided with the 
CFFA Interface card, but can ordered from several places on the 
Internet. 

When stand-offs are not available, common 4-40x1/2" machine screws 
will work. The threads of these screws do not match the thread pitch of 
the drive holes, but they are close enough to catch and hold the drive 
securely in place. Do not over tighten, just catch the threads. Use nuts 
to hold the screws in place, as shown in Figure 2. 

IMPORTANT: When mounting a drive on the CFFA Interface card, be sure that no metal 
contacts, especially the "Reset Enable" header and the "Firmware Select" header, touch 
or short on the bottom of the drive. This could destroy the card and the drive. 

Figure 2 
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Preparing the Storage Device 

Whether you use a CF card or an IDE drive you will need to prepare 
the storage device before you can use it to store your Apple II data. 



Partition Scheme for Storage Devices 

A "Partition Scheme" refers to the number and size of drives you will 
get on a specific storage device. Many users may be accustomed to 
deciding how the drive partitions are laid out. However, this is not 
possible with the CFFA card, which uses a static partition 
arrangement. Both the on-card firmware (assuming your are using 
Firmware #0) and the Dave Lyons' GS/OS driver use the same static 
partition scheme. Therefore device partitioning is not possible or 
necessary with the CFFA Interface card. 

Formatting Storage Devices 

After you attach a storage device to the CFFA Interface card, if it is not 
already formatted, it must be formatted with the file system for the 
operating system you will be using. This would typically be ProDOS or 
HFS. It should be possible to use any software package that can 
format a ProDOS or HFS volume. I have had good luck using Apple 
System Utilities version 3.1 to format ProDOS volumes. I have had 
some problems using Copy 11+ version 8.4. Occasionally the volumes 
formatted with Copy 11+ report substantially fewer total blocks than 
they should. 

Formatting is a high level OS format which does not perform any kind 
of media analysis or bad block checking. You may want to perform a 
disk verify using Apple System utilities or Copy 11+ to see if your 
computer can read every block on the disk. This can be done before or 
after you format the volume. Note: A disk verify can take a very long 
time on a 32 MB drive. 



Devices Compatible witli CFFA 

The CFFA Interface card was developed using SanDisk 
CompactFlash cards and 2.5" IBM hard drives. Many other devices 
should work with the card, but I can't guarantee compatibility with 
anything else. To help determine which devices work with the CFFA 
card and which devices do not, I will maintain a compatibility list on my 
web site, http://dreher.net/CFforApplell/Compatibility.html. 
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If you have information about the compatibility of a storage device with 
the CFFA Interface card, feel free to post a message to the Discussion 
Forum or E-mail me about it. I will update the Compatibility list as 
information becomes available. 



GS/OS Users 

Dave Lyons has developed a GS/OS driver specifically for the CFFA 
Interface card. The driver is called: COMPACTFLASH. Once this 
driver is loaded it no longer uses the on-card firmware. It provides 
support for two additional drives, up to 1 GB each, and faster 
performance. Note: This driver should also work with most IDE hard 
drives. The driver can be downloaded via the Internet, from the CFFA 
web site in the downloads section. 

After downloading the driver you should copy it into the DRIVERS 
folder inside your startup disk's SYSTEM folder. With the driver 
installed, you will see up to six partitions on your CFFA card, rather 
than the usual four. Be sure you have selected a firmware version that 
supports four drives, for example. Firmware #0 - all 3 jumpers 
installed. Selecting a firmware that supports a different number of 
drives, for example. Firmware #2 which supports 8 drives, will cause 
the GS/OS driver to not load. 

Once loaded you can tell that the COMPACTFLASH driver is being 
used successfully from the device name of any partition on the CFFA. 
In the Finder, select a partition and type Apple-I (Icon Info). Then click 
the "Where" tab and note the device name. If GS/OS is using a 
"generated driver" that calls the CFFA's firmware, you will see a name 
like ".DEV3". If the COMPACTFLASH driver is being used, you will 
see something like ".CFFA.7A.SANDISK_SDCFB-16", where 7 is the 
slot number and the following letter indicates the partition (A through 
F). 

The COMPACTFLASH driver controls up to two CFFA cards in your 
system. Normally, each slot containing a CFFA board will be set to 
"Your Card" in the Apple llgs Control Panel. However, the 
COMPACTFLASH driver will find and use the card even if the slot is 
NOT set to "Your Card". In this case, you can use the card while in 
GS/OS, but it will be invisible to ProDOS 8 making it impossible to 
boot from the CFFA. 



18 



19 



Advanced Information 



.^^^"■^^f^H- 




20 



Hardware 



This section gives detailed information about tlie liardware used on 
CFFA Interface card. 



Altera CPLD 

The chip U6 is an Altera EPM7064SLC44-10 CPLD (Complex 
Programmable Logic Device). It is flash based and can be 
reprogrammed in two ways. You can remove* the chip from the socket 
and reprogram it in a device programmer, or you can reprogram the 
chip without removing it from the socket using connector J7, labeled 
JTAG Port. For this you will need Altera's programming cable and 
development software that is compatible with the MAX 7000 series 
CPLDs. As this is beyond the scope of this manual, you can find more 
information at Altera's web site: http://www.altera.com/. 

* To facilitate the removal of chip U6 from Its socket, there is a hole in the bottom of the 
CFFA Interface card where you may Insert a small tool to push the chip out of Its socket 
The tool should have a flat end. 

IMPORTANT: When inserting a tool, you should be able to Insert it just over 7mm when 
It contacts the bottom of the chip. If your tool stops after Inserting It only 3 or 4mm you 
are feeling the bottom of the socket! DO NOT APPLY PRESSURE TO THE SOCKET! 
Change your tool's alignment so your tool Inserts the entire 7mm. Then apply a firm 
Increasing pressure until the chip pops out. Note that pin 1 is on the side of the socket 
closest to C11. Pin 1 on the chip Is marked by a small circle or dimple. 
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Altera CPLD Pinout 

Figure 3 provides tine signal names for version 1 .2 of the CFFA CPLD 
firmware (inere "firmware" refers to tine AHDL logic files used to 
program the CPLD). Different firmware versions could have a slightly 
different pinout. 

Figure 3: Altera's MAX Series EPM7064SLC44-10F CFFA-specific signal names 
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CPLD Logic Files 

Listing 1 is tine ADHL source file used to create the programmer-ready 
.pof file needed to program U6. Comments in the file start and end 
with the % character. This file was compiled using Altera's MAX+Plus 
II Baseline 10.1 development software. This software is free and can 
be downloaded from Altera's web site. 

Listing 1: CPLD Logic -AHDL Source File Version 1.2 

CompactFlash/ IDE Interface for the Apple II computer 
Project Home : http: //dreher . net/CFf orApplell/ 
Project Version 1.2 Feb 8, 2002 

Version 1.2 - Two or more cards would not work in system at same time 

because the DBUS245 select logic did not take into account 

expansion ROM enable flipflop state. 

Moved all logic into appleidelogic . tdf file . 

Version 1.1 - Add 7M elk & DFF to fix IDE drives /lORD & /lOWR timing 

Version 1.0 - Initial Release 

Note : Remember that the Apple II Bus does not have Phase 2 ! 

FUNCTION nandltch (sn, rn) RETURNS (q) ; 
FUNCTION DFF (D, CLK) RETURNS (Q) ; 

SUBDESIGN ApplelDELogic 
( 

AO, Al, A2, A3, A8, A9, AlO : INPUT; 

/RW, /DSEL, /I0_STRB, /I0_SEL, VMclk : INPUT; 

/R_HOST, R_ATA, W_HOST, /W_ATA : OUTPUT; 

/lOWR, /lORD, /CSO, /CSl : OUTPUT; 

/DBUS245, C800_ACT, /EPROM_EN, NOT_RW : OUTPUT; 

CS_MASK : OUTPUT; 

) 

VARIABLE 

SET_MASK, RESET_MASK, %CS_MASK, % DelayDSEL : NODE; 
/CFXX, /C800_FF : NODE; 

BEGIN 

DEFAULTS 

CS_MASK - GND; 
/C800_FF - VCC; 
END DEFAULTS; 

% Expansion Slot ROM enable Flip-flop. Active low signal % 

/C800_FF = nandltch (/CFXX, /IO_SEL) ; 

C800_ACT = !/C800_FF; % For debug only, can be removed % 

% Output for debug reworked PCB Version 1.2 Rev A chip U2 was wired with A and B 

busses reversed. % 

NOT_RW - !/RW; % Not needed for production % 

% EPROM select. Active low signal % 
/EPROM_EN - (/C800_FF # /I0_STRB) [$ /I0_SEL; 

% % 

% Fix for San Disk Family of CompactFlash drives . True IDEmode is not quite % 
% True ! The idea here is to mask the read cycle the preceeds all write cycles, % 
% because the read cycle was confusing the Sandisk % 

SET_MASK = /DSEL # (A3 # A2 # Al # !A0); 
RESET_MASK = /DSEL # (A3 # A2 # !A1 # AO); 

CS_MASK = nandltch (SET_MASK, RESET_MASK) ; 
% % 

% Delay /lORD and /lOWR approx 50ns using a D type FF and the Apple Bus % 

% 7Mhz clock the A0-A3 signals are used to keep from generating these signals % 
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% when accessing the latches % 

DelayDSEL - DFF(/DSEL, VMclk) ; 

/lOWR - /DSEL # DelayDSEL # /RW # ! (A3 # A2 # Al # AO); 

/lORD - /DSEL # DelayDSEL # ! /RW # ! (A3 # A2 # Al # AO); 

% decode address range SCFxx for deselecting the onboard EPROM 
/CFXX - ! (A8 & A9 & AlO & !/lO_STRB); 

% Latch chip select logic % 

/R_HOST - /DSEL # A3 # A2 # Al # AO # ! /RW; 

R_ATA - 1/DSEL & (A3 # (A2 & Al)) & /RW; 

W_HOST - 1/DSEL & ! (A3 # A2 # Al # AO) & ! /RW; 

/W_ATA - /DSEL # ! (A3 # (A2 & Al)) # /RW; 

% device chip select logic % 
/CSO - /DSEL # !A3 # (CS_MASK & /RW) ; 

/CSl = /DSEL # (A3 # ! (Al & A2)) # (CS_MASK & /RW) ; 
/DBUS245 - /DSEL & /EPROM_EN & /I0_SEL; 

END; 
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Firmware 



This section gives detailed information about tine EPROIVI based code 
(firmware) shipped with the CFFA Interface card. 

Why a Static Partition Sclieme? 

The partition scheme is static because the CFFA card does not have 
onboard RAM, so there is no temporary place to store partition 
information. In order to implement a user-configurable partitioning 
scheme, the firmware/driver would have to read the partition table from 
the device on every read or write access, affecting performance in a 
negative way. 

Firmware Updates 

If new versions of firmware become available they may be 
downloaded from the CFFA Interface web site. If you have access to 
an EPROM programmer and eraser, you can simply download the 
new firmware files, and using the programmer-ready binary file, erase 
and reprogram your EPROM. After you have programmed your 
EPROM you can insert the EPROM back into the interface card and 
back into your Apple for testing. 

Note: I recommend backing up the contents of the EPROM before you 
erase it for updating. Most EPROM programmers will let you read and 
save the data from an EPROM. Also, you can download all of the old 
versions of firmware from the CFFA web site. 

Future versions of firmware may be offered on EPROM for a small fee. 



Contributing Firmware to tlie CFFA Project 

There are two ways in which you can contribute to the firmware portion 
of this project. 

1 . You can send me your ideas for improvements which I will 
consider integrating into a future firmware version. 

2. Write your own firmware/driver for my hardware and send me the 
working source code and EPROM-ready binary, and I will post it 
on my web site under a contributors' section. 
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EPROM Firmware Select Jumpers 

There are three pairs of pins on jumper J6 which can be used to 
assign a logic 1 or to the top tinree address lines of the EPROM. 
These address lines are labeled A14, A13, and A12. When a jumper is 
in place you are connecting the corresponding address line to a logic 
level. When the jumper is removed, the corresponding address line is 
pulled up to a logic 1 level. Since three address lines can represent 8 
unique settings, you can select between 8 different 4K regions of 
EPROM which could each contain a unique firmware version. The 
CFFA Version 1.2 Rev B card comes with two main versions of 
firmware and two debug versions for a total of four versions 
programmed into the EPROM. See Table 2 for a list of those versions. 

Table 2: Firmware Select - J6 Jumper Settings 



A14 A13 A12 EPROM Firmware Selected 
Offset 


IN 


IN 


IN 


$0000 


#0: SmartPort / ProDOS 8 firmware - 
Supports four 32MB drives - Default setting. 
Apple llgs users using GS/OS should use this 
setting with the COMPACTFLASH driver. 


IN 


IN 


OUT 


$1000 


#1: Debug version of #0. Requires Apple's 
Super Serial Card in Slot 2 to use. Using 
without the SSC in slot 2 may cause 
unpredictable results. 


IN 


OUT 


IN 


$2000 


#2: SmartPort / ProDOS 8 firmware - 
Supports eight 32MB drives. This setting 
would typically be used by ProDOS 8 only 
users who want 256MB of storage. 


IN 


OUT 


OUT 


$3000 


#3: Debug version of #2. Requires Apple 
Super Serial Card in Slot 2 to use. Using 
without the SSC in slot 2 may cause 
unpredictable results. 


OUT 


IN 


IN 


$4000 


#4: Empty 


OUT 


IN 


OUT 


$5000 


#5: Empty 


OUT 


OUT 


IN 


$6000 


#6: Empty 


OUT 


OUT 


OUT 


$7000 


#7: Empty 



OUT = Jumper block is not installed 
IN = Jumper block is installed 
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The debug versions of firmware provide the same functionality as their 
non-debug counterparts with one addition. The debug version sends 
textual information out the serial port to another PC or terminal at 
19200 baud. This allows the user to get an idea of what is happening 
as the driver code executes. The penalty for this additional information 
is a much slower execution speed of the firmware. Therefore it is 
recommended that you only use the debug versions when actually 
trying to find a problem with the firmware. 

The empty space on the EPROM will allow for additional firmware 
versions. An example might be a 6502-only code driver for the Apple 
11+ or Me. 



EPROM Layout 

The chip U5 located in the upper right corner of the board is an ST 
Microelectronics M27C256B-10F1 256Kbit EPROM. One of eight 4K 
sections of this 32KB EPROM is mapped into the Apple's address 
space starting at $C000 using jumpers J6 (A14, A13, A12). Therefore, 
it contains both the Peripheral Card ROM space and the Expansion 
ROM space. Because the EPROM is mapped over the entire I/O 
space, the EPROM has a separate space for each slot ROM. The 
firmware takes advantage of this setup by repeating substantially the 
same code for each $CnOO slot space: $C100, $C200, ..., $C700. 
Note: Even though the base address of the EPROM is $C000, the 
EPROM is not enabled for addresses in the range of $C000 to $COFF 
or $CFOO to $CFFF. Table 3 shows the relationship between an 
address on the Apple's bus and the EPROM's response. 

Table 3: EPROM Offsets listed for when all 3 Jumpers at J6 are installed 



Address on EPROM Offset EPROM's Response 
Apple's Bus 


$C000 to $COFF 


$0 to $FF 


Not Used. EPROM never enabled in this 
range 


$C100to$C1FF 


$100to$1FF 


Slot 1 ROM Space. Enabled when card is in 
slot 1 . 


$C200 to $C2FF 


$200 to $2FF 


Slot 2 ROM Space. Enabled when card is in 
slot 2. 


$C300 to $C3FF 


$300 to $3FF 


Slot 3 ROM Space. Enabled when card is in 
slot 3. 


$C400 to $C4FF 


$400 to $4FF 


Slot 4 ROM Space. Enabled when card is in 
slot 4. 


$C500 to $C5FF 


$500 to $5FF 


Slot 5 ROM Space. Enabled when card is in 
slot 5. 
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Address on EPROM Offset EPROM's Response 
Apple's Bus 


$C600 to $C6FF 


$600 to $6FF 


Slot 6 ROM Space. Enabled when card is in 
slot 6. 


$C700 to $C7FF 


$700 to $7FF 


Slot 7 ROM Space. Enabled when card is in 
slot 7. 


$C800 to SCEFF 


$800 to $EFF 


Expansion ROM space. Must be previously 
enabled by access to SCnXX. (n = slot) 


$CFOO to SCFFF 


$F00to$FFF 


EPROM never enabled in this range. Any 
access disables Expansion ROM space. 
But always use $CFFF to disable. 



The layout shown in Table 3 is repeated 8 times, based on the setting 
of jumpers J6 labeled A12, A13, A14. See Table 2 for the EPROM 
offsets that would be accessed for each of the eight Firmware Select 
settings, set by J6. 
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CFFA Hardware Memory Map 

Table 4 shows all of the slot-specific I/O addresses decoded by the 
CFFA Interface card. These addresses are used to interface a storage 
device's task register file to the Apple's bus. There is an extra register 
to allow the translation from the 16 bit ATA device to the Apple's 8 bit 
bus. Also, due to a bug in some CF card implementation of "TruelDE" 
mode, there are two special soft switches used to inhibit CPU read 
cycles from confusing CF cards during block write routines. 

Table 4: Slot specific I/O used by the CFFA Interface card 



Apple Name Used in Read/ Description 
Address Source Code Write 

(for Slot 7) 


$C080+$nO 
($COFO) 


ATADataHigh 


R/W 


This register is used in combination with 
the ATADataLow register $C080+$n8. 
See $C080+$n8 description. 


$C080+$n1 
($C0F1) 


SetCSMask 


R/W 


Special soft switch to disable CSO & 
CS1 signaling to attached device during 
65C02 read cycles that always precede 
write cycles 


$C080+$n2 
($C0F2) 


ClearCSMask 


R/W 


Special soft switch to enable CSO & CS1 
signaling to attached device during 
65C02 read cycles that always precede 
write cycles 


$C080+$n3 
($C0F3) 






Unused 


$C080+$n4 
($C0F4) 






Unused 


$C080+$n5 
($C0F5) 






Unused 


$C080+$n6 
($C0F6) 


ATADevCtrl 


W 


This register is used to control the 
device's interrupt request line and to 
issue an ATA soft reset to the device. 


$C080+$n6 
($C0F6) 


ATAAItStatus 


R 


This register returns the device status 
when read by the host. Reading the 
ATAAItStatus register does NOT clear a 
pending interrupt. (NOTE: CFFA does 
not use interrupts) 


$C080+$n7 
($C0F7) 






Unused 
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Apple Name Used in Read/ Description 
Address Source Code Write 

(for Slot 7) 


$C080+$n8 
($C0F8) 


ATADataLow 


R/W 


This register is used to transfer data 
between the host and the attached 
device. It is used in combination with the 
ATADataHigh register to form a 16 bit 
data word. 

When reading words from the attached 
device, this register must be read first, 
and then the High byte can be read from 
the ATADataHigh register. When writing 
to the attached device, the ATADataHigh 
register must be written first, and then 
the ATADataLow register can be written. 


$C080+$n9 
($C0F9) 


ATAError 


R 


This register contains additional 
information about the source of an error 
when an error is indicated in bit of the 
ATAStatus register. 


$C080+$nA 
($COFA) 


ATASectorCnt 


R/W 


This register contains the number of 
blocks of data requested to be 
transferred on a read or write operation 
between the host and the device. If the 
value in this register is zero, a count of 
256 sectors is specified. 


$C080+$nB 
($COFB) 


ATASector 


R/W 


This register contains the starting sector 
number or bits 7-0 of the Logical Block 
Address (LBA) for any device access for 
the subsequent command. 


$C080+$nC 
($COFC) 


ATACylinder 


R/W 


This register contains the low order 8 bits 
of the starting cylinder address or bits 
15-8 of the Logical Block Address. 


$C080+$nD 
($COFD) 


ATACylinderH 


R/W 


This register contains the high order bits 
of the starting cylinder address or bits 
23-16 of the Logical Block Address. 


$C080+$nE 
($COFE) 


ATAHead 


R/W 


This register is used to select LBA 
addressing mode or cylinder/head/sector 
addressing mode. Also bits 27-24 of the 
Logical Block Address. 


$C080+$nF 
($COFF) 


ATACommand 


W 


A write to this register will issue an ATA 
command to the device. 


$C080+$nF 
($COFF) 


ATAStatus 


R 


This register returns the device status 
when read by the host. Reading the 
Status register does clear a pending 
interrupt. (NOTE: CFFA does not use 
interrupts) 



n = the slot number in which the CFFA Interface card is installed. 
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Marketing Megabytes 



At some point when storage device sizes became sufficiently large, 
some marketing genius decided that their products would appear more 
impressive if they used the standard SI definition of the prefix Mega, 
where 1 MB - 1,000,000 Bytes instead of the widely used computer- 
centric definition where 1 MB = 1024 x 1024 - 1,048,576 Bytes. It 
appears that after one company did this the rest were forced to follow 
suit. 

Therefore, you may notice that the last drive on your storage device 
has a few less blocks than you may have expected. For example, one 
might expect that a SanDisk 64 MB CF card would provide space for 
two full 32 MB drives. However, this is not the case. It provides only 
29.25 MB or 30.67 MB (marketing) for the second drive. Given that the 
SanDisk 64 MB card that has 125440 ($1EA00) blocks instead of the 
expected 131072 ($20000) blocks, and that the first drive consumes 
the first 65536 ($10000) blocks (ProDOS wastes 1 block), that leaves 
the second drive with only 59904 ($EAOO) blocks. Which is a drive size 
of 29.25 MB or 30.67 MB (Marketing), but not 32 MB. 

Note: Block size is always 512 ($200) bytes. 
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Contact Information 



The following is a list of information resources for the CFFA Interface 
Card project. If you have questions, comments, or problems to report, 
please contact me using one of the methods listed below. 

CFFA Web Site 

The CFFA web site is located at: http://dreher.net/CFforApplell/. There 
you will find any new firmware revisions, project revisions, and general 
project status information. 

Internet E-Mail 

I can be reached via E-mail at rich@dreher.net. 

If you are reporting a problem, please use "CFFA problem" or similar 
as your subject line. In your E-mail you should include the firmware 
version number, which can be determined by removing any CF cards 
or IDE drives from the CFFA Interface card and then booting your 
computer with the CFFA card installed. An error message appears and 
following the string "Ver:" is the firmware version number. Also, if 
possible, describe the conditions necessary to cause the problem. 



CFFA Message Web Forum 

To post a message in the forum, simply point your web browser to: 
http://dreher.net/phpBB/. The CFFA message forum is a good place to 
post technical problems and solutions. Other users may have had 
similar problems and know of a possible solution. You will have to 
register before you can post to the forum the first time. This only takes 
a moment, and is free. 
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Appendix 1: Firmware Listing 



The following is a listing of the Firmware #0 located on the EPROM at 
offset $100, accessed when all three shorting blocks of jumper J6 are 
in place. The rest of the code on the EPROM is not shown in this 
listing. Please check for future firmware listings on the CFFA web site. 
A .1st list file is included in each firmware archive. Special thanks to 
Dave Lyons for doing the vast majority of the SmartPort firmware. 



Listing 2: SmartPort Firmware Version 1.2 iocated at Firmware #0 



ca65 V2.6.9 - (C) Copyright 1998-2000 Ullrich von Bassewitz 






Main file : SPDRV 


S 




Current file; SPDRV 


S 




OOOOOOr 










OOOOOOr 


ProDOS/SmartPort driver for CompactFlash/IDE Interface for Apple II 


computers 


OOOOOOr 


SPDRV. S Version 1.2 - 04/12/2002 




OOOOOOr 






OOOOOOr 


Firmware Contributors: Email: 




OOOOOOr 


Chris Schumann cschumann@twp-llc.com 




OOOOOOr 


Rich Dreher rich@dreher.net 




OOOOOOr 


Dave Lyons dlyons@lyons42.com 




OOOOOOr 






OOOOOOr 






OOOOOOr 


This code requires a 65C02 or 55C816 equipped machine. 




OOOOOOr 






OOOOOOr 


Tools used to build this driver: CA65: 6502 Cross Assembler 




OOOOOOr 


http: //www. cc65.org/ 




OOOOOOr 






OOOOOOr 


Here is the copyright from that tool using --version option 




OOOOOOr 


ca65 V2.6.9 - (C) Copyright 1998-2000 Ullrich von Bassewitz 




OOOOOOr 






OOOOOOr 


Example build instructions on an M$DOS based machine: 




OOOOOOr 










OOOOOOr 


Assumes you have installed the CC65 package and set your path, etc. 




OOOOOOr 






OOOOOOr 


1) c:\firmware> ca65 -t apple2 — cpu 65C02 -1 spdrv.s 




OOOOOOr 


2) c:\firmware> ld65 -t apple2 spdrv.o -o spdrv.bin 




OOOOOOr 


3) Because the EPROM can hold up to 8 user selectable version of fi 


rmware 


OOOOOOr 


you must load spdrv.bin into your EPROM programmer with one of the 


OOOOOOr 


following offsets : 




OOOOOOr 


{Note: this offset has nothing to do with the card slot offsets) 




OOOOOOr 






OOOOOOr 


for driver #0 


use offset $0100. Selected with 


A14= IN, A13= IN, 


A12= IN 


OOOOOOr 


for driver #1 


use offset $1100. Selected with 


A14= IN, A13= IN, 


A12=0UT 


OOOOOOr 


for driver #2 


use offset $2100. Selected with 


A14= IN, A13=0UT, 


A12= IN 


OOOOOOr 


for driver #3 


use offset $3100. Selected with 


A14= IN, A13=0UT, 


A12=0UT 


OOOOOOr 


for driver #4 


use offset $4100. Selected with 


A14=0UT, A13= IN, 


A12= IN 


OOOOOOr 


for driver #5 


use offset $5100. Selected with 


A14=0UT, A13= IN, 


A12=0UT 


OOOOOOr 


for driver #6 


use offset $6100. Selected with 


A14=0UT, A13=0UT, 


A12= IN 


OOOOOOr 


for driver #7 


use offset $7100. Selected with 


A14=0UT, A13=0UT, 


A12=0UT 


OOOOOOr 






OOOOOOr 


where IN = jumper shorted, and OUT = jumper open 




OOOOOOr 


Driver #0 through #7 correspond to the user selectable 




OOOOOOr 


jumpers: J6 {A14 , A13, A12 ) on the interface card. 




OOOOOOr 






OOOOOOr 


4) Load as many firmware versions, up to 8, into the EPROM programm 


er as you 


OOOOOOr 


want. Remember that most programmers will, by default, clear all 


unused 


OOOOOOr 


memory to $FF when you load a binary file. You will need to disable that 


OOOOOOr 


feature after loading the first file. 




OOOOOOr 






OOOOOOr 


5) Now you have an EPROM ready image to be programmed. 




OOOOOOr 


Using a standard 27C256 EPROM or similar, program your EPROM. 




OOOOOOr 






OOOOOOr 


Firmware Version History 




OOOOOOr 












OOOOOOr 


Version 1.2 




OOOOOOr 


- Start of SmartPort driver. Based on Version 1.1 ProDOS driver 




OOOOOOr 






OOOOOOr 


Version 1.1 




OOOOOOr 


- dynamically calculate drive sizes in GetStatus function 




OOOOOOr 


- turn off interrupts in case boot code is called manually 




OOOOOOr 


- add cardlD/firmware revision bytes: CFFA$xx 




OOOOOOr 


- added continuation of boot scan if device not present 




OOOOOOr 


- added continuation of boot scan if boot block code looks invali 


d 


OOOOOOr 


- reformatted this source file, removed tabs and added function headers 


OOOOOOr 






OOOOOOr 


Version 1.0 




OOOOOOr 


- initial version for Prototype #2 with descrete latches 




OOOOOOr 
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OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 



PLD Logi 



Infori 



This version of firmware ass 
least version 1.2. The sour 
Appleideinterf ace . gdf 
Appleidelogic. tdf 



are using PLD logic of at 

for U5, the Altera PLD are 



The programmer ready output file for the PLD logic 
Appleideinterf ace .pof 



These files are 
Acknowledgements 



Thanks to: 
Chris Schuman ■ 
David Lyons 



Smart Port code development 



initial development 



.defi 

.defi 
.defi 



EQU 

TRUE 

FALSE 



FIRMWARE_VER EQU $12 
SPDRIVERVERSION EQU $1200 
GSOS_DRIVER EQU $02 



SMARTPORT EQU TRUE 
BLOCKQFFSET EQU 
PARTITIONS 32MB EQU 4 



.-Version 1.2 (Version of this code) 
; SmartPort version 1 . 2 
;GS/OS driver will check this byte t 
is still compatible with this 
; Increment by one, when something changes 
;would reguire a change in the GS/OS drive 
;Otherwise only change the FIRMWARE_VER fo 
other changes. 

01 = ProDOS Driver supporting 2 drives 

02 = SmartPort Driver supporting 4 drives 

03 = SmartPort Driver supporting 8 drives 



0..255: LBA of first block of first partiti 
Number of 32MB Partitions supported 
Remember, ProDOS only supports 13 total 
volumes for all devices, floppies, SCSI dri 
RAM drives, etc. 



To enable debug output, set DEBUG = TRUE, only if you have a Apple Super 
Serial card in slot 2. This will output one line of text for each request 
made to the firmware, which can be seen on a computer or terminal attached to 
the SSC. 

NOTE: If you use DEBUG=TRUE and you don't have an Apple Super Serial card in 
slot 2, your computer might hang in the routine DSChar, waiting for 
the SSC status bit to say it is okay to write to the 6551 UART . 

Set your terminal (software) at the remote end as follows: 
BaudRate: 19200 
Data Bits: 8 
Parity: None 
Stop Bits: 1 



Example debug output at terminal from CAT comin, 
slot 6. ProDOS makes a ProDOS 8 call to the fi 
unit: 60 into buffer memory at $DCO0. 

P8: Rd B:0002 U:50 A$DC00 Chk$5711 

Rd = ProDOS Read ($01) . Also could be Wr = wri 
U:60 = ProDOS 8 unit number $60 Slot 5, drive 
A$DCO0 = ProDOS buffer address 
Chk$6711 = Simple block checksum used to 



oDOS 8. Card is 
read block 2 fr. 



($02) , St = Status (500) 



ally check data integrity 



NOTE: When DEBUG is true, some zero-page locations are used. The data at 
these locations are saved and restored and should not impact other prograi 



DEBUG 


= FALSE 






; DEBUG 


= TRUE 






; Drive 


r consta 


nt defin 


INITDONESIG 


EQU 


$A5 


CR 




EQU 


$0D 


BELL 




EQU 


$07 



; ProDOS reguest Constan 
PRODOS_STATUS EQU $00 
PRODOS_READ EQU $01 
PRODOS_WRITE EQU $02 
PRODOS_FORMAT EQU $03 
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OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 



;ProDOS Return Co. 
PRODOS_NO_ERROR 
PRODOS_BADCMD 
PRODOS_1 0_E RROR 
PRODOS NO DEVICE 



EQU 500 

EQU $01 

EQU $27 

EQU $28 



PRODOS_WRITE_PROTECT EQU $2B 
PRODOS_BADBLOCK EQU $2D 
PRODOS_0 FELINE EQU $2F 

; SmartPort return codes 
BAD_UNIT_NUMBER EQU $11 

; ATA Commands Codes 
ATACRead EQU $20 
ATACWrite EQU $30 
ATAIdentify EQU $EC 



; Bad Command {not implemented) 

;I/Q error 

;No Device Connected 

;Write Protected 

; Invalid block number requested 

; Device off-line 



;Coi 



stants 



■ Wait 



; Constant = 


(Delay[in uS] /2 . 5 


WAIT 100ms 




EQU 197 


WAIT 40ms 




EQU 124 


WAIT lOOus 




EQU 4 


; Slot I/O defi 


nitions 


mslot 




= $7F8 


lOBase 




= $0080 


ATADataHigh 




= IOBase+0 


SetCSMask 




= IOBase+1 


ClearCSMask 




= IOBase+2 



ATADevCtrl 


= IOBase+6 


; when 


ATAAltStatus 


= IOBase+6 


; when 


ATADataLow 


= IOBase+8 




ATAError 


= IOBase+9 




ATASectorOnt 


= IOBase+10 




ATASector 


= IOBase+11 




AT ACy Under 


= IOBase+12 




ATACylinderH 


= IOBase+13 




ATAHead 


= IOBase+14 




ATACommand 


= IOBase+15 


; whe 


ATAStatus 


= IOBase+15 


; whe 



; Apple defined locati. 



; Two special strobe locations to set and clea 

; MASK bit that is used to disable CSO line t' 

; the CompactFlash during the CPU read cycles 

; that occur before every CPU write cycle. 

; The normally inoccuous read cycles were 

; causing the SanDisk CF to double increment 

; during sector writes commands. 



Scratchpad RAM ba; 



Acci 



ing the Y registe 



ntaing the slot # 



DriveRe set Done 


= $478 


Drive Number 


= $4f8 


SeriallnitDone 


= $578 


DrvBlkCountO 


= $5f8 


DrvBlkCountl 


= $678 


DrvBlkCount2 


= $6f8 


DrvMiscFlags 


= $778 


Available2 


= $7f8 


; Zero-page RAM 


"mem^^y 


.IF DEBUG 




MsgPointerLow 


= $EB 


MsgPointerHi 


= $EC 


CheckSumLow 


= $ED 


CheckSumHigh 


= $EE 


.ENDIF 




zptl 


= $EF 


StackBase 


= $100 


; ProDOS block 


interfa 


pdCommandCode 


= $42 


pdUnitNumber 


= $43 


pdlOBuffer 


= $44 


pdlOBufferH 


= $45 


pdB 1 o c kNumbe r 


= $46 


pdBlockNumberH 


= $47 



; remember the device has been software reset 

; normally to 3 for four 32MB partitions 

;For debug: if $A5 then serial init is complete 

;low byte of usable block count 

; (excluding first BLOCKOFFSET blocks) 

;bits 8.. 15 of usable block count 

;bits 16.. 23 of usable block count 

;bit 7 = raw LBA block access 

;not currently used 



;data at these locati' 



;data at thi, 



"IS saved and restored 



; Arbitrary locations 

these locations are 
spCommandCode = pdCo: 



spParamList 

spCmdList 

spCSCode 

spSlot 

spSlotXlS 

spLastZP 



= $48 

= $4A 
= $4C 

= $4D 
= $4E 

= spsiotxie 



data 



;2 bytes 
;2 bytes 
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OOOOOOr 
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OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
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OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 



spZe 

spZe 



oPgArea = pdCommandCode ; $42 
oPgSize = spLastZP-spZeroPgAre 



Apple II ROM entry points 

We can use these at boot time, but not while handling a call through 
our ProDOS or SmartPort entry points, as the ROM may not be available 



SetVID 

SetKBD 

COUT 

INIT 

HOME 

ROMWAIT 

Applesoft 



= SFE89 
= SFE93 
= $FDED 
= $FB2F 
= $FC58 
= $FCA8 
= SEOOO 



Start of Peripheral Card ROM Space $CnO0 to $CnFF 

A macro is used here so that this code can be easily duplicated for each slot 
instead of by hand using the EPROM programmer. This is possible done because 
the hardware does not overlay the Clxx address space at C2xx, C3xx, etc. 
automatically. Instead the base address for the EPROM is $C0O0 but is enabled 
only when a valid address in the range of $C100 to $CEFF is on the bus. This 
allows for the development of slot specific behaviors in firmware, if desired. 
Currently that is not being done, instead the same slot code is repeated for 
every slot ROM space. Addresses $CO0O to $COFF are not decoded by the 
hardware as it is Apple's internal I/O. Any access of $CFOO to $CFFF is 
decoded by the card to reset the Expansion ROM flip-flop, but remember to 
use always address $CFFF for that task. 



. CnXX SLOTADDR, 
■cal PSDriverEntry 

■ cal PSDriver 

■cal SmartPortEntry 

■ cal SPDriver 

■ cal Boot 

■ cal Error 

■cal NotScanning 
ical wasteTime 
ical ErrorMsgDi splay 
iCal msgLoop 

■ cal msgDone 

iCal ErrorMessage 



SLOTxie, SLOT 



Ida #$20 

Idx #$00 

Ida #$03 

.IF SMARTPORT 

Ida #$00 

.ELSE 

Ida #$3c 

.ENDIF 

bra Boot 



$20 
$00 
$03 



signature fo 



Noi 



-boo 



$CEFF, 



river entry point 

The EPROM holding this code is decoded and mapped into $C100 
it is not nessecary to dynamically determine which slot we are in, as is 
common in card firmware . This code is in a MACRO and is located absolutely 
per slot. Any code in this MACRO that is not relocatable will have to be 
based on the MACROs parameters SLOTADDR, SL0Txl5, SLOT. 



PSDriverEntry: 

jmp PSDriver 
SmartPortEntry: 

jmp SPDriver 

Boot: 

Idy #SLOT 

Idx #SL0Txl6 

Ida #>SLOTADDR 

sta mslot 

bit $cfff 



is enabled, or a Di 

Idy #5 

steTime: 

Ida #WAIT_100ms 

jsr ROMWAIT 
dey 

bne wasteTime 

Idy #SLOT 



Located at $Cn0A for b 
3y definition, SmartPo 
after ProDOS entry 



compatibility 
■ntry is 3 byte 



;Y reg now has $0n for accessing sera 
;X reg now has $nO for indexing I/O 
;loads A with slot# we are in:$Cn 
;Apple defined location reserved for 

; active. MSLOT needs the form of $Cn 
;turn off expansion ROMs 



■ CheckDevice) 



the CFFA RESET jumpe 
becomes ready. 



]3 



CheckDevic' 



Ida #PRODOS READ 



; Request: READ block 
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OOOOOOr 
OOOOOOr 
OOOOOOr 

OOOOOOr 
OOOOOOr 
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OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 
OOOOOOr 



pdCommandCode 

pdlOBuffer 
pdB 1 o c kNumbe r 
pdBlockNumberH 
#$08 

pdlOBufferH 
pdUnit Number 



Ida $800 

cmp #$01 

bne Error 

Ida $801 

beq Error 

Idx pdUnit Number 

jmp $801 



; If any error i 
; boot scan, if 
Error: 

Ida $00 

bne NotScani 

Ida $01 

bne NotScani 
jmp $FABA 

;The boot code i 
NotScanning: 
jsr SetVID 
jsr SetKBD 



;Into Location $800 

;ProDOS block $0000 (the bootloader block) 



; From unit number: $n0 (where n=slot#), 
; so drive bit is always 

;Read bootloader from device's block 

; location $800 

; Check for error during bootblock read 



; Check the 
;If bootlo; 



■st byte of boot loader code, 
■ode is there, this byte = $01 



econd byte is a 
'd JMP to a BRK) 



should contain the unit number wh' 
o the bootloader 
errors, jump to bootloader just 



, check to see 
■ drop to Apple 



ally be. 






sage 



jsr INIT 

jsr HOME 

Idy #0 
-sgLoop: 

Ida ErrorMessage, y 

beq msgDone 

ora #$80 

jsr COUT 

iny 

bra msgLoop 
.sgDone: 

jmp Applesoft 

rrorMessage: 

-byte CR,CR,CR,CR,CR 

-byte "CFFA: Device i 

-byte "or incompatible. ",CR 
"vX.Y" built automatically: 

-byte "Ver:",$30+ (FIRMWARE_VER/16) 
Beep, then end-of -message : 

-byte BELL, $00 



ode, full 



ssing, not formatted, " , CR 

. " , $ 3 + ( F I RMWARE_VER 



Non-boot entry point for dri 

Handle a ProDOS call 



Setup MSLOT, X and Y regis 
This must be done every tii 



P8Drive 


r: 


Idy 


#SLOT 


Idx 


#SL0Txl6 


Ida 


#>SLOTADDR 


sta 


mslot 


bit 


$cfff 


bit 


ClearCSMask,x 


]mp 


P8AUXR0M 



; Y reg now has $0n for accessing scratchpad RAM 

;X reg now has $nO for indexing I/O 

;loads A with slot# we are in:$Cn{where n=slot#) 

; Apple defined location reserved for last slot 

; active. MSLOT needs the form of $Cn 

;turn off other ROM that might be on 

; reset MASK bit in PLD for normal CSO signaling 



SmartPort call handle 






Called from jmp at $CnOD. 

1 ) Push a block of zero-page locations onto the stack, creating i 

2) Get the request parameters that follow the call to this drive: 

3) Using request parameters as pointers get request specific infi 
and set up the P8 driver request registers $42-$47. 

4) Call P8Driver code 

5) On return from P8 Driver code, restore zero page work space, ai 
caller. 

SPDriver: 

Ida #>SLOTADDR 
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OOOOOOr 








OOOOOOr 








OOOOOOr 








OOOOOOr 








OOOOOOr 








OOOOOOr 








OOOOOOr 








OOOOOOr 








OOCIOO 


A9 


20 


A2 


00 


0OC104 


A9 


03 


A9 


00 


0OC108 


80 


05 


4C 


C3 


0OC20O 










0OC20O 










OOC200 


A9 


20 


A2 


00 


0OC204 


A9 


03 


A9 


00 


0OC208 


80 


05 


4C 


C3 


OOC300 










OOC300 










OOC300 


A9 


20 


A2 


00 


0OC304 


A9 


03 


A9 


00 


0OC308 


80 


05 


4C 


C3 


0OC40O 










0OC40O 










0OC40O 


A9 


20 


A2 


00 


0OC404 


A9 


03 


A9 


00 


0OC408 


80 


05 


4C 


C3 


OOC500 










OOC500 










OOC500 


A9 


20 


A2 


00 


0OC504 


A9 


03 


A9 


00 


0OC508 


80 


05 


4C 


C3 


0OC60O 










0OC60O 










0OC60O 


A9 


20 


A2 


00 


0OC604 


A9 


03 


A9 


00 


0OC608 


80 


05 


4C 


C3 


0OC70O 










0OC70O 










0OC70O 










0OC70O 


A9 


20 


A2 


00 


0OC704 


A9 


03 


A9 


00 


0OC708 


80 


05 


4C 


C3 


0OC70C 


C7 


4C 


D5 


C7 


0OC71O 


AO 


07 


A2 


70 


0OC714 


A9 


C7 


8D 


F8 


0OC718 


07 


2C 


FF 


CF 


0OC71C 


AO 


05 


A9 


C5 


OOC720 


20 


A8 


FC 


88 


0OC724 


DO 


F8 


AO 


07 


0OC728 


20 


82 


CC 


BO 



sta 


mslot 


bit 


$cfff 


Idx 


#SL0Txl6 


bit 


ClearCSMask 


jmp 


SPAuxROM 



;X reg now has $nO for indexing I/O 

;reset MASK bit in PLD for normal CSO signaling 



SL0TADDR+$F5- 



GSOS DRIVER 



skip to $CnF5, 






the 



3lot# 



GS/OS driver compatibility byte. GS/OS driver 
checks this byte to see if it is compatible 
with this version of firmware . This way, 
changes to firware versions, that do not 
affect the GS/OS driver will not prevent the 
GS/OS driver from loading and running. This 
byte should be incremented each time a change 
is made that would prevent the GS/OS driver 
from working correctly . I.e. Partition layout 
or something similar. 



.byte "CFFA", FIRMWARE_VER ; $CnF6 . .CnFA: Card Hardwar. 
; non-standard scheme 



ID, 



$CnFB: SmartPort status byte 
Not Extended; not SCSI; not RAM card 
Even if not supporting SmartPort, we need a 
zero at $CnFB so Apple's RAMCard driver 
doesn ' t mistake us for a "Slinky" memory 



Data table for ProDOS drive scan 

$CnFC/FD = disk capacity, if zero use statu 

$CnFE = status bits (BAP p7-14) 

7 = medium is removable 

6 = device is interruptable 

5-4 = number of volumes (0..3 means 1..4) 

3 = device supports Format call 

2 = device can be written to 

1 = device can be read from (must be 1) 

= device status can be read (must be 1) 



nd to dete 



SCnFF = LSB of block dr. 
.word $0000 



.byte $17 

.byte <P8DriverEntry 
. endmacro 



.ORG $C100 

CnXX $C100, $10, $01 



.ORG $C200 

CnXX $C200, $20, $02 



.ORG $C300 

CnXX $0300, $30, $03 



.ORG $C400 

CnXX $0400, $40, $04 



.ORG $C500 

CnXX $0500, $50, $05 



.ORG $C600 

CnXX $0500, $50, $05 



. listbytes unlimited 
.ORG $C700 

CnXX $0700, $70, $07 



;$CnFC-D: A zero he 

; rely on the statu 



11 cause prodos 
d to determii 



oDOS entry point 



$CnFE: support 2 ProDOS dr 
$CnFF: low-order offset to 



;Slot PROM code fo 



;Slot PROM code for slot 2 



;Slot PROM code for slot 3 



;Slot PROM code for slot 4 



;Slot PROM code for slot 5 



;Slot PROM code for slot 6 



;Show all of the code bytes for the 7th slot 
;Slot PROM code for slot 7 
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0OC72C 


26 


A9 


01 


85 


0OC73O 


42 


64 


44 


64 


0OC734 


46 


64 


47 


A9 


0OC738 


08 


85 


45 


86 


0OC73C 


43 


20 


C3 


C7 


OOC740 


BO 


11 


AD 


00 


0OC744 


08 


C9 


01 


DO 


0OC748 


OA 


AD 


01 


08 


0OC74C 


FO 


05 


A6 


43 


0OC75O 


4C 


01 


08 


A5 


0OC754 


00 


DO 


OA 


A5 


0OC758 


01 


CD 


F8 


07 


0OC75C 


DO 


03 


4C 


BA 


00C760 


FA 


20 


89 


FE 


00C764 


20 


93 


FE 


20 


0OC768 


2F 


FB 


20 


58 


0OC76C 


FC 


AO 


00 


B9 


0OC77O 


7F 


C7 


FO 


08 


0OC774 


09 


80 


20 


ED 


0OC778 


FD 


C8 


80 


F3 


0OC77C 


4C 


00 


EO 


OD 


0OC78O 


OD 


OD 


OD 


OD 


0OC784 


43 


46 


46 


41 


0OC788 


3A 


20 


44 


65 


00C78C 


76 


69 


63 


65 


00C790 


20 


6D 


69 


73 


00C794 


73 


69 


6E 


67 


00C798 


2C 


20 


6E 


6F 


00C79C 


74 


20 


66 


6F 


0OC7AO 


72 


6D 


61 


74 


0OC7A4 


74 


65 


64 


2C 


0OC7A8 


OD 


6F 


72 


20 


0OC7AC 


69 


6E 


63 


6F 


00C7B0 


6D 


70 


61 


74 


00C7B4 


69 


62 


6C 


65 


0OC7B8 


2E 


OD 


56 


65 


0OC7BC 


72 


3A 


31 


2E 


00C7C0 


32 


07 


00 


AO 


00C7C4 


07 


A2 


70 


A9 


00C7C8 


C7 


8D 


F8 


07 


0OC7CC 


2C 


FF 


CF 


3C 


0OC7DO 


82 


CO 


4C 


7D 


00C7D4 


CA 


A9 


C7 


8D 


0OC7D8 


F8 


07 


2C 


FF 


0OC7DC 


CF 


A2 


70 


3C 


0OC7EO 


82 


CO 


4C 


00 


0OC7E4 


C8 


XX 


XX 


XX 


0OC7E8 


XX 


XX 


XX 


XX 


00C7EC 


XX 


XX 


XX 


XX 


00C7F0 


XX 


XX 


XX 


XX 


00C7F4 


XX 


02 


43 


46 


00C7F8 


46 


41 


12 


00 


00C7FC 


00 


00 


17 


OA 


OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 










OOC800 


AO 


OC 






0OC802 










0OC802 


B9 


42 


00 




0OC805 


48 








0OC806 


88 








0OC807 


10 


F9 






0OC809 


BA 








0OC80A 


BD 


OE 


01 




0OC80D 


85 


48 






0OC80F 


18 








OOC810 


69 


03 






0OC812 


9D 


OE 


01 




0OC815 


BD 


OF 


01 




0OC818 


85 


49 






0OC81A 


69 


00 






0OC81C 


9D 


OF 


01 




0OC81F 










0OC81F 










0OC81F 


AD 


F8 


07 




0OC822 


29 


OF 







; revert back to normal listing mode fo 
End of Peripheral Card ROM Space 









Start 


of 


/O expa 


; Code 


here st 


arts 


at Sc800 






; This 


code ar 


ea is 


absolute 


and 


can use 


.ORG 


$C800 








note; . 



absolute addressing 
ORG does not cause this code to 
placed at C800. The ".RES" statement 



MagicRawBlocksUnit EQU 127 



SPAuxROM: 

; save ZP, fetch cmd ■ 
Idy #spZeroPgSize- 



unit 127 in ReadBlo 
LBA blocks. 



;k/WriteBlock 



Ida 


spZeroPgArea, y 


pha 




dey 




bpl 


save 


tsx 




Ida 


$101+spZeroPgS 


sta 


spParamList 


clc 




adc 


#3 


sta 


$101+spZeroPgS 


Ida 


$102+spZeroPgS 


sta 


spParamList+1 



set up spSlot and spSlotX15 
Ida mslot 
and #$0f 
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0OC824:i 
0OC825:( 
0OC826:( 
OOC827:I 
0OC828:( 
0OC829:i 
0OC82A:) 
0OC82C:i 
0OC82E: 
0OC82E: 
0OC82E:i 
OOC830i^ 
0OC833: 
0OC833: 
0OC833:; 
0OC836: 
0OC836: 
0OC836: 
0OC836: 
0OC836: 
0OC836: 
0OC836: 
0OC836: 
0OC836ii 
0OC838:] 
0OC83A:) 
0OC83C:( 
0OC83D:] 
0OC83F:i 
0OC84O:( 
0OC841:] 
0OC843:) 
0OC845:) 
0OC847: 
0OC847ii 
0OC849:i 
0OC84B1] 
0OC84D:] 
0OC84F: 
0OC84F:] 
0OC851:I 
0OC854:l 
0OC856: 
0OC856:i 
0OC858:i 
0OC85A: 
0OC85A: 
0OC85A:i 
0OC85C:] 
0OC85E:i 
OOC860:( 
0OC863: 
0OC863:) 
0OC864:l 
0OC865:i 
0OC866:; 
0OC8691 
0OC869:] 
0OC86B:i 
0OC86D: 
0OC86D: 
0OC86D:i 
0OC86E: 
0OC86E: 
0OC86E:i 
0OC87O: 
0OC87O:i 
0OC871:i 
0OC874:( 
0OC875:( 
0OC877:; 
0OC879: 
0OC8791) 
0OC87A:i 
0OC87C1 
0OC87C: 
0OC87C:i 
0OC87E:( 
0OC88O:i 
0OC881: 
0OC881: 
0OC881:] 
0OC884:. 
0OC885:] 
0OC888:' 
0OC889:i 
0OC88A: 
0OC88A: 
0OC88A:( 
0OC88B:l 
0OC88C:( 
0OC88D:l 
0OC88E:l 
0OC88F:( 
OOC890:( 



95 C8 
94 C8 



sty spSlot 

stx spsiotxie 



DrvMiscFlags 



DrvMiscFlags, y 



al flags (such , 



; reset 
jsr 


the device if 
ResetDrivelfF 


th 


.IF DEBUG 

/warning this 
jsr DSStri 
-byte "SP:' 

.ENDIF 


debug code 

ng 

,0 


; get c 
Idy 
Ida 

sta 


3mmand 
#1 
(spPai 

SpCOTf^ 


code fr 

amList) 
andCode 


3m 

y 



Ida (spParamList ) , y 



Ida (spParamList) , y 

sta spParamList+1 

stx spParamList 

Ida #PRODOS_BADCMD 

Idx spCommandCode 

cpx #$09+1 

bcs out 

Ida (spParamList) 

cmp RequiredParamCounts 

beg pCountOK 



pCountOK: 
Idy #1 

Ida (spParamList) , 
Idy spSlot 
sta DriveNumber, y 



nd tc 



bad com 
o large 



still the 



Idy 

■store 
pla 



spZeroPgArea, y 



cpy tspZeroPgSi 
bcc restore 



Idx #0 

cmp #1 



JumpToSPCommand: 

Ida spDispatch+1, 

pha 

Ida spDispatch, x 

pha 



;high byte of # bytes transferred 
; (always (1) undefined, or 
; (2) #bytes transferred to host) 
;low byte of # bytes transferred 
;C=1 if error code nonzero 



-byte 3 

-byte 3 

-byte 3 

-byte 1 

-byte 3 

-byte 1 

-byte 1 



;0 = status 

;1 = read 

;2 = write 

;4 = control 

;5 = init 

; 6 = open 
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0OC891: 
0OC892: 
0OC893: 

0OC894. 
0OC894. 
0OC894. 
0OC896: 
0OC898: 
0OC89A: 
0OC89C: 
0OC89E: 
0OC8AO: 
0OC8A2: 
0OC8A4: 
0OC8A6: 
0OC8A8: 
0OC8A8: 
0OC8A8: 
0OC8A8: 
0OC8A8. 
0OC8A8. 
0OC8A8. 
0OC8A8. 
0OC8A8. 
0OC8A8. 
0OC8AB. 
0OC8AD. 
0OC8AD. 
0OC8AF. 
0OC8B2. 
0OC8B4. 
0OC8B4. 
0OC8B4. 
0OC8B6: 
0OC8B8. 
0OC8B8. 
0OC8B8. 
0OC8BA; 
0OC8BC. 
0OC8BF. 
0OC8BF. 
0OC8BF: 
0OC8BF: 
0OC8C1: 
0OC8C2: 
0OC8C3: 
0OC8C3: 
0OC8C3: 
00C8C5: 
00C8C7: 
0OC8CA: 
0OC8CC: 
0OC8CC: 
0OC8CE: 
0OC8D1: 
0OC8D2: 
0OC8D4: 
0OC8D4: 
0OC8D6: 
0OC8D6: 
0OC8D9: 
0OC8DB. 
0OC8DC: 
0OC8DE. 
0OC8DF. 
00C8DF. 
0OC8EO: 
0OC8EO: 
0OC8EO: 
0OC8E1: 
0OC8E1. 
0OC8E1. 
0OC8E3. 
0OC8E3. 
0OC8E3: 
0OC8E5: 
0OC8E6: 
0OC8E7: 
0OC8E7: 
0OC8E7. 
0OC8E8. 
0OC8EB. 
0OC8EB. 
0OC8ED: 
0OC8EF: 
0OC8FO: 
0OC8F2: 
0OC8F3: 
0OC8F4: 
0OC8F6: 
0OC8F8: 
0OC8F9: 
0OC8FA: 
0OC8FA: 
0OC8FA: 



.byte 

-byte 
-byte 



ite 



2 OA CA 



B9 F8 06 



B9 DF C8 



spDispatch : 

.word spStatus-1 
.word spReadBlock-1 
.word spWriteBlock-1 
.word spFormat-1 
.word spControl-1 
.word spInit-1 
.word spOpen-1 
.word spClose-1 
.word spReadChars-1 
.word spWriteChars-1 



SmartPort STATUS call 

We support the standard 
for unit 0, which fills 
data. 



alls, plus an "Identify" command 
buffer with the card's Identify 



jsr SPSetupControlOrStatus 

bcs statOut 

Idy spSlot 

Ida DriveNumber, y 

bne StatusForOneUnit 



StatusCode = SS 
Ida spCSCode 

beq StatusOO 



it == 0: status fo 



; Status for 
cmp #$4 9 
bne BadStatusCode 
jmp spStatusIdentify 

; Any other status code fo 
BadStatusCode: 

Ida #$21 

sec 



StatusOO: 

Idx spSlotXlS 

Idy spSlot 

jsr GetStatus 

bcs StatOut 

Idy spSlot 

Ida DrvBlkCount2, y 



t 0, subcode $4 9 = Identify (device -specific subcode) 



sta (spCmdList) 

Idy #7 
StatOOLoop: 

Ida StatO0Data-l,y 
sta (spCmdList) ,y 

bne StatOOLoop 

StatOut: 



StatOOData: 
.byte $40 



.word SPDRIVERVERSION 
.byte $00 
.byte $00 

StatusForOneUnit : 
dec a 
sta DriveNumber, y 

Idx spCSCode 

beq StatusOor3 

dex 

beq StatusGetDCB 

dex 

dex 

beq StatusOor3 

Ida #$21 



;byte +0 = numbe 



; Interrupt flag = J 



; Vendor ID assigned to Rich Dreher by 
; www.syndicomm.com 3/16/2002 



; Our version number 
; Reserved byte 
; Reserved byte 



;Bad status 



We have 
block, s 



esting data to return for the device control 
the shortest one allowed: a length byte of 
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0OC8FA 






0OC8FA 






0OC8FA 






0OC8FA 


A9 


01 


0OC8FC 


92 


4A 


0OC8FE 


A8 




0OC8FF 


A9 


00 


0OC901 


91 


4A 


0OC903 


18 




0OC904 


60 




0OC905 






0OC905 






0OC905 






0OC905 






0OC905 






0OC905 






0OC905 






0OC905 






0OC905 


A9 


F8 


0OC907 






0OC907 


92 


4A 


0OC909 


A6 


4E 


0OC90B 


A4 


4D 


0OC90D 


20 


DA CA 


0OC91O 


BO 


CD 


0OC912 






0OC912 


98 




0OC913 


AO 


02 


0OC915 


91 


4A 


0OC917 


88 




0OC918 


8A 




0OC919 


91 


4A 


0OC91B 


AO 


03 


0OC91D 


A9 


00 


0OC91F 


91 


4A 


0OC921 






0OC921 


A5 


4C 


0OC923 


FO 


OC 


0OC925 






0OC925 






0OC925 


AO 


04 


0OC927 






0OC927 


B9 


2F C9 


0OC92A 


91 


4A 


0OC92C 


C8 




0OC92D 


CO 


19 


0OC92F 


90 


F6 


0OC931 






0OC931 






0OC931 


18 




0OC932 


60 




0OC933 






0OC933 






0OC933 


OD 


43 4F 


0OC937 


50 


41 43 


0OC93B 


20 


46 4C 


0OC944 


02 




0OC945 


20 




0OC946 






0OC946 


00 


12 


0OC948 






0OC948 






0OC948 






0OC948 






0OC948 






0OC948 






0OC948 






0OC948 






0OC948 






0OC948 






0OC948 


A4 


4D 


0OC94A 


A6 


4E 


0OC94C 


20 


82 CC 


0OC94F 


90 


03 


0OC951 


A9 


28 


0OC953 


60 




0OC954 






0OC954 






0OC954 


A9 


00 


0OC956 


9D 


80 CO 


0OC959 






0OC959 


A9 


EC 


0OC95B 


9D 


8F CO 


0OC95E 


20 


78 CC 


0OC961 






0OC961 


BD 


8F CO 


0OC964 


29 


09 


0OC966 


C9 


01 


0OC968 


DO 


04 


0OC96A 






0OC96A 






0OC96A 






0OC96A 






0OC96A 






0OC96A 







; 1 followed by a data byte 

StatusGetDCB: 
Ida #1 

sta (spCmdList) 
tay 

Ida #0 
sta (spCmdList) ,y 



ed length = 1 



ed data = $00 



Status code and 3 



. devil 

. Devil 



status (1 byte devi 
Information Block 



Status0or3: 
Ida #$F8 

sta (spCmdList) 

Idx spSlotX16 

Idy spSlot 

jsr GetStatus 

bcs statOut 

tya 

Idy #2 

sta (spCmdList) ,y 

dey 

txa 

sta (spCmdList) ,y 

Idy #3 

Ida #0 

sta (spCmdList) ,y 

Ida spCSCode 

beq statDone 

; status code 3: retur 
Idy #4 

stat3Loop: 

Ida stat3Data-4,y 

sta (spCmdList) ,y 

iny 

cpy #21+4 

bcc stat3Loop 

StatDone: 
clc 



stat3Data: 

-byte 13, "COMPACT FLASH 



ns extra data. 
3-byte block cou 



ead, format. 



CmdList +2 


= bits 8. 


.15 of block coun 


CmdList +1 


= bits 0. 


.7 of block count 



+3 = bits 16.. 23 of block co 



; length byte + 16-byte ASCII, padded 



-byte $02 
-byte $20 



device type 
subtype (no 
no disk sw 



= hard di: 
removable 
-tched) 



■rd SPDRIVERVERSION 



Identify (Status subcode) 

The status list is a 512-byte buffer that we will fill wit: 
the drive's IDE "Identify" data. We post-process the data 
by byte- swapping the model name and serial number strings 

so they make sense. 



spStatu 


sidentify: 


Idy 


spSlot 


Idx 


spSlotX16 


jsr 


CheckDevice 


bcc 


identl 


Ida 


tPRODOS NO DEVICE 


rts 




identl: 




Ida 


#0 


sta 


ATADataHigh,x 


Ida 


#ATAIdentify 


sta 


ATACommand, x 


jsr 


IDEWaitReady 


Ida 


ATAStatus,x 


and 


#$09 


cmp 


#$01 


bne 


iCommandOK 


iError: 




.IF DEBUG 


/warning this debug code t 


jsr 


DSString 


.byt 


e "spldfy Err: ", 



code in Ace with Carry set 



; Issue the read command to the dr. 
;Wait for BUSY flag to go away 

; Check for error response 

;if DRQ=0 and ERR=1 an error occu; 



shes the Ace 
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0OC96A: 
0OC96A: 
0OC96A: 
0OC96A: 
0OC96Aii 
0OC96C:; 
0OC96D:i 
0OC96E: 
0OC96E: 
0OC96E: 
0OC96E: 
0OC96E: 
0OC96E: 
00C96E:J 
00C970:i 
0OC972:i 
0OC974: 
0OC974:] 
0OC977: 
00C977:; 
00C979:; 
00C97B:1 
0OC97D: 
0OC97D1] 
0OC98O:i 
0OC982:( 
0OC983:! 
0OC986:i 
0OC988:( 
0OC989:I 
0OC98B:] 
0OC98D:( 
0OC98F:I 
0OC991: 
0OC991: 
0OC991: 
0OC991: 
0OC991:( 
0OC993:( 
0OC995: 
0OC995:i 
0OC997:i 
0OC999:; 
0OC99C1 
0OC99C:i 
0OC99E:i 
0OC9AO:; 
0OC9A3: 
0OC9A3:: 
0OC9A4:( 
0OC9A5: 
0OC9A5: 
0OC9A5: 
0OC9A5:] 
0OC9A7:' 
0OC9A8:( 
0OC9A9:] 
0OC9AB:i 
0OC9AC:' 
0OC9AE:( 
0OC9AF:i 
0OC9BO:i 
0OC9B2:( 
0OC9B3:( 
0OC9B4:I 
0OC9B6:i 
0OC9B7: 
0OC9B7: 
0OC9B7: 
0OC9B7: 
0OC9B7: 
0OC9B7:; 
0OC9BA:] 
0OC9BC: 
0OC9BCii 
0OC9BEii 
0OC9CO:' 
0OC9C3: 
0OC9C3: 
0OC9C3: 
0OC9C3:i 
0OC9C4: 
0OC9C4: 
0OC9C4: 
0OC9C4: 
0OC9C4: 
0OC9C4:; 
0OC9C7:] 
0OC9C9: 
0OC9C9:i 
0OC9CB:i 
0OC9CD:' 
0OC9DO: 
0OC9DO: 
0OC9DO: 



Ida 

jsr 
.ENDIF 

Ida 

rts 
; The " 
pageCou 



ATAError,x 
DSByteCRLF 

#PRODOS_IO_ERROR 

Identify" data is ready to 

nt = spCominandCode ;r 

dOK: 
#2 
pageCount 



Idy 


#0 


Loop: 




Ida 


ATAStatus,x 


bmi 


iLoop 


and 


#S08 


beq 


iError 


Ida 


ATADataLow,x 


sta 


(spCmdList) ,y 



;Note: not using IDEWaitReady, 

; instead 

;Wait for BUSY {bit 7) to be ze 

;get DRQ status bit 

;if off, didn't get enough data 



ATADataHigh,x 
(spCmdList) ,y 

iLoop 

spCmdList+1 
pageCount 

. ASCII text data of the Identify data to 
e are both on the first page of the data 



dec 


spCmdList+1 


dec 


spCmdList+1 


Idv 


#23*2 


Idx 


#24 


]sr 


SwapBytes 


Idv 


#10*2 


idx 


#10 


]sr 


SwapBytes 



; Point to beginning of buf f e 
;Start at word 23 (firmware 



Lodel number) 



SwapBytes: 

Ida (spCmdList) ,y 

pha 

iny 

Ida (spCmdList) ,y 

sta (spCmdList) ,y 



sta (spCmdList) ,y 



;Save the 1st byte 

;Get the 2nd byte 

;Store it in posit 

;Finally, retrieve 
;Put it in positio 



dex 

bne SwapByte 



; SmartPort READ BLOCK coi 

spReadBlock: 

j sr SPSetupReadWrite 
bcs readDone 



Idy spSlot 
Idx spSlotXie 

jmp ReadBlock 



; SmartPort WRITE BLOCK . 

spWriteBlock: 

jsr SPSetupReadWrite 
bcs writeDone 

Idy spSlot 
Idx spSlotXie 
jmp WriteBlock 



SmartPort FORMAT command 
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0OC9DO: 
0OC9DO: 
0OC9DO: 
0OC9DO. 
0OC9DO. 
0OC9D3. 
0OC9D3: 
0OC9D3: 
0OC9D3: 
0OC9D3: 
0OC9D3. 
0OC9D6. 
0OC9D8. 
0OC9D8. 
0OC9DB. 
0OC9DD. 
0OC9DD: 
0OC9DF: 
0OC9E1: 
0OC9E2: 
0OC9E4: 
0OC9E5: 
0OC9E7: 
0OC9E8: 
0OC9EA: 
0OC9EB: 
0OC9ED. 
0OC9ED. 
0OC9ED. 
0OC9EF. 
0OC9FO. 
0OC9FO. 
0OC9F1. 
0OC9F1. 
0OC9F1. 
0OC9F3: 
0OC9F4: 
0OC9F5: 
0OC9F5. 
0OC9F5. 
0OC9F5. 
0OC9F5: 
0OC9F6: 
0OC9F7: 
0OC9F7: 
0OC9F7: 
0OC9F7: 
0OC9F7: 
0OC9F7: 
0OC9F7: 
0OC9F7: 
0OC9F7. 
0OC9F7. 
0OC9F7. 
0OC9FA: 
0OC9FC: 
0OC9FE: 
0OC9FF: 
OOCAOO. 
OOCAOO. 
OOCAOO: 
OOCAOl: 
0OCA02: 
0OCA02: 
0OCA02: 
0OCA02: 
0OCA02: 
0OCA02: 
0OCA02: 
0OCA02: 
0OCA04: 
0OCA05: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA0 6: 
0OCA08: 
0OCA0 9: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 
OOCAOA: 



2 65 CA 
BO 13 



A6 4C 
FO 14 



B9 F8 04 
FO 04 
A9 11 



; We don ' t actually do anything beyond validating the unit numbe 

spFormat : 

jmp SPValidateUnitNumber 



; SmartPort CONTROL cominand 

spControl: 

jsr SPSetupControlOrStatu, 
bcs ctrlDone 

jsr SPValidateUnitNumber 
bcs CtrlDone 

Idx spCSCode 

beq ctlReset 

dex 

beq ctlSetDCB 



dex 

beq ctlSetNewline 

dex 

beq ctl Service Inte 

dex 

beq ctlEject 

CtlSetNewline: 
Ida #$21 



ctlService Interrupt: 
Ida #$lf 
sec 
rts 



; Control code = Reset 

; Control code 1 = SetDCB 

; Control code 2 = SetNewline 

; Control code 3 = Servicelnterrupt 

.-Control code 4 = Eject 

;Bad control code 



; Interrupt devices not supported 



CtlReset: 

CtlSetDCB: 

CtlEject: 

clc 

rts 



SmartPort INIT C( 



individual unit; 



SmartPort Technote #2 says you can 
so return error if DriveNumber is 

splnit : 

Ida DriveNumber, y 

beq initChain 

Ida #BAD UNIT NUMBER 



initCha 
clc 



spOpen : 
spClose: 

Ida #PRODOS BADCMD 



; SmartPort: Read, Write 

; We don ' t bother implementing Read and Write, although they ■ 
; for block devices . We would only support 512 -byte transfer 

spReadChars : 
spWriteChars : 

Ida #PRODOS_IO_ERROR 

sec 

rts 



SPSetupControlOrStatus 

fetch from parameter block: 

status/control list pointer (word) 
status/control code (byte) 

SPSetupControlOrStatus : 
Idy #2 
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OOCAOC:] 
OOCAOE:) 
OOCA10:( 
OOCAlli] 
0OCA13:) 
0OCA15:( 
0OCA16:! 
0OCA18:i 
OOCAIA:: 
OOCA1B:( 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC: 
OOCAIC :i 
OOCAIE:] 
OOCA20:) 
0OCA22:( 
0OCA23:] 
0OCA25:i 
0OCA27: 
0OCA27: 
0OCA27:( 
0OCA28:] 
0OCA2A:) 
0OCA2C:( 
0OCA2D:] 
0OCA2F:i 
0OCA31: 
0OCA31: 
0OCA31:i 
0OCA33:] 
0OCA36:( 
0OCA38:l 
0OCA3A: 
0OCA3A:; 
0OCA3D:] 
0OCA3F: 
0OCA3F:i 
0OCA41:] 
0OCA43:I 
0OCA45: 
0OCA45:i 
0OCA47:; 
0OCA49:: 
00CA4A:1 
0OCA4C:: 
0OCA4D:( 
0OCA4E: 
0OCA4E: 
0OCA4E:i 
0OCA5O:; 
0OCA51: 
0OCA51:( 
OCAS 2: 
OCAS 2: 
OCAS 2: 
OCAS 2: 
0OCAS2:i 
0OCAS4:: 
0OCAS7:! 
OOCASA: 
0OCASA:i 
OOCASC:] 
0OCASE:i 
OOCA60:i 
0OCA63:: 
0OCA64:i 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 
0OCA65: 



78 07 
78 07 



Ida (spParamList) ,y 

sta spCmdList 

iny 

Ida (spParamList) , y 

sta spCmdList+1 

iny 

Ida (spParamList) , y 

sta spCSCode 



copy of SmartPort 



SPSetupReadWrite 

DriveNumber, y 

fetch from SP par, 
buffer pointer 
block number 



Validate unit number : 

127 = magic, allow any block number 
1..N: Validate block number: $O..FFFE 



DriveNumber, y : translated " 
DrvMiscFlags: bit 7 set if 

SPSetupReadWrite: 

; copy pdlOBuffer from parami 

Idy #2 

Ida (spParamList) , y 

sta pdlOBuffer 

iny 

Ida (spParamList) , y 

sta pdIOBuffer+1 

; copy pdBlockNumber from pa 
iny 

Ida (spParamList) , y 
sta pdBlockNumber 
iny 

Ida (spParamList) , y 
sta pdBlockNumber+1 

; Validate the unit number a. 
Idy spSlot 
Ida DriveNumber, y 
cmp #MagicRawBlocksUnit 
beq magicUnit 



BLOCKOFFSET 



nd block numbe. 



]s 



SPValidateUnitNumbe. 



Idy #5 

Ida (spParamList) , y 

bne badBlockNum 

Ida pdBlockNumber+1 
and pdBlockNumber 

beq badBlockNum 



badBlockNum: 

Ida tPRODOS BADBLOCK 



; For the "magic raw bl( 

magicUnit : 
Ida #$80 

ora DrvMiscFlags, y 
sta DrvMiscFlags, y 

Idy #5 

Ida (spParamList) , y 

Idy spSlot 

sta DriveNumber, y 



SPValidateUnitNumber 

Validate that DriveNumber is from 1 
Input : DriveNumber 

Output : DriveNumber in range . .N-1 
SPValidateUnitNumber : 



16. .23 of block number 



; Block SFFFF 



lad block number 



full 3 -byte block numbe. 



16. .23 of block number 
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0OCA65: 
0OCA67. 
0OCA6A. 
0OCA6C. 
0OCA6D. 
0OCA7O: 
0OCA73. 
0OCA75. 
0OCA77. 
0OCA77. 
0OCA78. 
0OCA7 9. 
0OCA7 9. 
0OCA7 9: 
0OCA7B: 
0OCA7C: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7D: 
0OCA7E: 
0OCA8O: 
OCAS 2: 
OCAS 4: 
OCAS 6. 
OCAS 6. 
OCAS 6. 
OCAS 8: 
OOCASA: 
OOCASB: 
OOCASB. 
OOCASB. 
OOCASE. 
OOCA90. 
0OCA93. 
0OCA93. 
0OCA96. 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA96: 
0OCA98: 
0OCA9A: 
0OCA9C: 
0OCA9F. 
0OCA9F. 
0OCA9F. 
OOCAAl. 
0OCAA3. 
0OCAA6. 
0OCAA6. 
0OCAA6: 
0OCAA8. 
OOCAAA. 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAD: 
OOCAAF. 
OOCABO. 
OOCABl: 
OOCABl: 
OOCABl: 
OOCABl: 
OOCABl: 
OOCABl. 
OOCABl. 
OOCABl. 
OOCABl. 
OOCABl. 
OOCABl. 
OOCABl. 
OOCABl. 



F8 04 

F8 06 



F8 04 

00 
78 07 

Bl CA 



Idy spSlot 

Ida DriveNumber, y 

beq badUnit 

sta DriveNumber, y 

cmp DrvBlkCount2 , y 
beq unitOK 
bcs badUnit 
unitOK: 



badUnit: 

Ida #BAD UNIT NUMBER 



PSAuxROM - Handle a ProDOS call 
PSAuxROM: 



If the ProDOS unit number does, 
the drive number . 



slot number, add 2 to 



This actually happens: If we're in slot 5, we get calls for slot 2 
that want to access our 3rd and 4th partitions. 

txa 

eor pdUnit Number 

and #$70 



A = SnO 
EOR the slot number 
Point to drive 3 or 4 



beq OurSlot 
Ida #2 

OurSlot: 

bit pdUnitNumber 
bpl DriveOne 



DriveOne: 

sta DriveNumber, y 

Ida #0 

sta DrvMiscFlags, y ;no special flags (such , 

jsr ResetDrivelfFirstTime 

; process the commiand code and jump to appropriate routi. 



.IF DEBUG 

/warning this debug code tr 

jsr DSString 

-byte "PS:", 

.ENDIF 

Ida pdCommandCode 

cmp #PRODOS_READ 

bne chkl 

jmp ReadBlock 

chkl: 

cmp #PRODOS_WRITE 

bne chk2 

jmp WriteBlock 

chk2: 

cmp #PRODOS_STATUS 

bne chk3 

jmp GetStatus 



the Ace registe 



An 



alid request # has bee 



nt to this driver 



.IF DEBUG 

pha 

jsr DSString 

-byte "CE",0 

pla 

jsr DSByteCRLF 
.ENDIF 

Ida #PRODOS 10 ERROR 



aller. Should always be ProDOS 



etDrivelfFirstTime - Reset the drive once, the first time the dr. 
called ide_devctrl Bit 2 = Software Reset, Bit 1 = nIEN {enable 
ertion of INTRQ) 



X = requested slot number in form $nO where n = slot 1 to 7 
Y = SOn (n = slot#) for accessing scratchpad RAM; 



ZeroPage Usage: 
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OOCABl: 
OOCABl: 
OOCABl: 
OOCABl:] 
0OCAB4:( 
0OCAB6:l 
00CAB8: 
0OCAB8: 
0OCAB8: 
0OCAB8:i 
0OCABA:( 
OOCABD: 
0OCABD:i 
OOCABF:^ 
0OCAC2: 
0OCAC2: 
0OCAC2: 
0OCAC2: 
0OCAC2:i 
0OCAC4:; 
0OCAC7: 
0OCAC7:i 
0OCAC9:' 
OOCACC: 
OOCACC: 
OOCACC: 
OOCACC: 
OOCACC :i 
OOCACE:; 
OOCADl: 
OOCADl: 
OOCADl: 
OOCADl:; 
0OCAD4: 
0OCAD4:i 
0OCAD6:^ 
0OCAD9: 
0OCAD9: 
0OCAD9:i 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA: 
OOCADA:; 
OOCADD:' 
OOCADF: 
0OCADF:i 
OOCAEl:i 
00CAE3:i 
0OCAE5:; 
0OCAE6:' 
0OCAE9: 
0OCAE9: 
0OCAE9: 
0OCAE9:i 
OOCAEB:^ 
OOCAEE: 
OOCAEE:; 
0OCAFl:i 
0OCAF3:i 
0OCAF6:; 
0OCAF9: 
0OCAF9:} 
OOCAFC:; 
0OCAFE:( 
OOCBOO:! 
0OCB02: 
0OCB02: 
0OCB02: 
0OCB02: 
0OCB02: 



; CPU Registers changed: A, P 

ResetDrivelfFirstTime: 
Ida DriveResetDone, Y 
cmp tINITDONESIG 
beq resetOK 

Reset the ATA device 

Ida #0 

sta ATADataHigh,x 

Ida #$06 

sta ATADevCtrl,x 



; Clear high byte data latch 
;Reset bit=l. Disable INTRQ=1 



Per ATA-5 spec, need to wait 5us ininiinuin. U 
Should cover accelerated Apples up to 20Mhz 



Ida #WAIT_100us 
jsr Wait 



delay of lOOus. 



Ida #$02 

sta ATADevCtrl,x 



;Reset bit=0. Disable INTRQ=1 



Per ATA-6 spec, need to wait 2ins minimum. U 
Should cover accelerated Apples up to 20Mhz 



Ida #WAIT_40ms 
jsr Wait 



delay of 40ms. 



Per ATA-5 spec, wait fo 
jsr IDEWaitReady 



Ida #INITDONESIG 
sta DriveResetDone 



by calling IDEWaitReady 



;Set the init done flag , 



init only happen; 



GetStatus - Called by ProDOS and SmartPort to get device statu, 

DriveNumber,y (0 to 3) 

X = slot number in form $nO where n = slot 1 to 7 

Y = $0n (n = slot#) for accessing scratchpad RAM; 

Output : 

A = ProDOS status return code 
X = drive size LSB 

Y = drive size MSB 

Carry flag: = Okay, 1 = Error 

DrvBlkCountO. .DrvBlk;Count2 = usable blocks on device 

GetStatus: 



.IF DEBUG 

/warning this debug code tr 

jsr DSString 

.byte " St", 

jsr DisplayParms 
.ENDIF 



j sr CheckDevice 

bcc sDriveOK 

Idx #$00 

Idy #$00 

Ida #PRODOS OFFLINE 



the Ace registe 



imp 



sExit 



; Device is present 
sDriveOK: 

00 Ida #0 

80 CO sta ATADataHigh,x 

78 CC jsr IDEWaitReady 
EC Ida #ATAIdentify 

8F CO sta ATACommand,x 
78 CC jsr IDEWaitReady 

8F CO Ida ATAStatus,x 
09 and #$09 

01 cmp #$01 

OA bne sValidATACi 



high byte tr 



;is 



the 



ead . 



and to the dr. 



.IF DEBUG 

/warning this debug code tr 

jsr DSString 

-byte " Idfy Err:",0 



;Wait for BUSY flag to g' 

; Check for error response 

;if DRQ=0 and ERR=1 an < 

shes the Ace register 
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0OCB02 








0OCB02 








0OCB02 








0OCB02 








0OCB02 


A2 


00 




0OCB04 


AO 


00 




0OCB06 


A9 


27 




0OCB08 


38 






0OCBO9 


4C 


8E 


CB 


OOCBOC 








OOCBOC 








OOCBOC 


5A 






OOCBOD 


AO 


00 




OOCBOF 








OOCBOF 








OOCBOF 


20 


78 


CC 


0OCB12 


BO 


06 




0OCB14 


7A 






0OCB15 


A9 


27 




0OCB17 


4C 


8E 


CB 


OOCBIA 








OOCBIA 








OOCBIA 


BD 


88 


CO 


OOCBID 


C8 






OOCBIE 


CO 


39 




OOCB20 


DO 


ED 




0OCB22 


7A 






0OCB23 








0OCB23 








0OCB23 


BD 


88 


CO 


0OCB26 


38 






0OCB27 


E9 


00 




00CB2 9 


99 


F8 


05 


00CB2C 


BD 


80 


CO 


00CB2F 


E9 


00 




0OCB31 


99 


78 


06 


0OCB34 


BD 


88 


CO 


0OCB37 


E9 


00 




0OCB39 


99 


F8 


06 


0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 








0OCB3C 


B9 


F8 


06 


0OCB3F 


C9 


04 




0OCB41 








0OCB41 


BO 


05 




0OCB43 








0OCB43 


BD 


80 


CO 


0OCB46 


FO 


OD 




0OCB48 








0OCB48 


A9 


FF 




0OCB4A 








0OCB4A 


99 


F8 


05 


0OCB4D 


99 


78 


06 


0OCB5O 


A9 


03 




0OCB52 








0OCB52 


99 


F8 


06 


0OCB55 








0OCB55 








0OCB55 








0OCB55 








0OCB55 


20 


78 


CC 


0OCB58 


90 


05 




0OCB5A 


BD 


88 


CO 


0OCB5D 


80 


F6 




0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 








0OCB5F 


B9 


F8 


04 



Ida ATAError,x 

jsr DSByteCRLF 
.ENDIF 

Idx #0 

Idy #0 

Ida #PRODOS 10 ERROR 



sValidATACommand: 
phy 
Idy #$00 

sPref etchloop: 

jsr IDEWaitReady 

bcs sWordRdy 

ply 

Ida #PRQDQS_IQ_ERROR 

jmp sExit 

sWordRdy : 

Ida ATADataLow,x 

iny 

cpy #57 

bne sPref etchloop 

ply 

sPrefetchDone: 

Ida ATADataLow,x 

sec 

sbc #BLGCKOFFSET 

sta DrvBlkCountO,y 

Ida ATADataHigh,x 

sbc #0 

sta DrvBlkCountl,y 

Ida ATADataLow,x 



Command Er 



cured, retur 



DrvBlkCount2,y 



.IF DEBUG 

jsr DSString 
-byte "Size:", 

Ida ATADataHigh,x 

jsr DSByte 

Ida DrvBlkCount2, y 

jsr DSByte 

Ida DrvBlkCountl,y 

jsr DSByte 

Ida DrvBlkCountO,y 

jsr DSByte 

jsr DSBlank 
.ENDIF 

Ida DrvBlkCount2, y 
cmp # PART IT IONS 3 2MB 

bcs maxQutAtN 

Ida ATADataHigh,x 
beq lessThan8GB 
maxQutAtN: 
Ida #$FF 

sta DrvBlkCountO,y 
sta DrvBlkCountl,y 
Ida # PART IT IONS 3 2MB- 1 

sta DrvBlkCount2, y 
lessThan8GB: 



PostFetch: 

jsr IDEWaitReady 
bcc sReadComplete 
Ida ATADataLow,x 
bra PostFetch 

sReadComplete : 



;save Y, it holds the $0n sratchpad RAM offset 



;See if a word 



;Read words thru 55 but throw them away 
;Number of the last word you want to throw away 



;Read the current capacity in sectors (LBA) 



; get the high byte of high word just for display 



max out at (#PARTITIGNS32MB * $10000 + OOFFFF) 
blocks 



; The device is truly huge ! Just set our 3-byte 
; block count to $03FFFF 



; Number of 32MB devices, set by the equate 
; #PARTITIONS32MB 



■ead the rest of the words, until command ends 



r 


/BlkCount2 is the number of 32 MB partitions availiable - 1, 
the highest drive # supported (zero based) . 


f 
f 
f 


DrvBlkCount2 > drive # then StatusSize = SFFFF 

DrvBlkCount2 = drive # then StatusSize = DrvBlkCountl, DrvBlkC 

DrvBlkCount2 < drive # then StatusSize = 



This scheme has a special case which must be handled because ProDOS 

partitions are not quite 32 meg in size but are only FFFF blocks in size. 
If a device is exactly: 32meg or lOOOOh blocks in size, it would appear 
as one drive of size FFFF and another drive of size 0000. To handle this 
case, we check for an exact size of 0000 and fall into the NoDrive code. 

Ida DriveNumber, y 



49 



0OCB62 


D9 


F8 06 


0OCB65 


FO 


OB 


0OCB67 


90 


IE 


0OCB69 






0OCB69 






0OCB69 


A2 


00 


0OCB6B 


AO 


00 


0OCB6D 


A9 


2F 


0OCB6F 


38 




0OCB7O 


80 


IC 


0OCB72 






0OCB72 






0OCB72 






0OCB72 


B9 


F8 05 


0OCB75 


19 


78 06 


0OCB78 


FO 


EF 


0OCB7A 






0OCB7A 


B9 


F8 05 


0OCB7D 


AA 




0OCB7E 


B9 


78 06 


0OCB81 


A8 




0OCB82 


A9 


00 


0OCB84 


18 




0OCB85 


80 


07 


0OCB87 






00CB87 






00CB87 


A2 


FF 


0OCB89 


AO 


FF 


0OCB8B 


A9 


00 


0OCB8D 


18 




0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






0OCB8E 






00CB8E 


60 




00CB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






00CB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 






0OCB8F 


A5 


45 


0OCB91 


48 




0OCB92 


A5 


EF 


0OCB94 


48 




0OCB95 






00CB95 






0OCB95 






0OCB95 






0OCB95 






0OCB95 






0OCB95 






00CB95 






0OCB95 


20 


9F CB 


0OCB98 






0OCB98 






00CB98 






0OCB98 






0OCB98 






0OCB98 






0OCB98 






0OCB98 






0OCB98 


7A 




0OCB99 


84 


EF 


0OCB9B 


7A 




0OCB9C 


84 


45 



cmp DrvBlkCount2, y 
beq ExactSize 

bcc FullSize 



Idx 

Idy 
Ida 
sec 



tPRODOS OFFLINE 



Ida DrvBlkCountO,y 

ora DrvBlkCountl,y 

beq NoDrive 

Ida DrvBlkCountO,y 



;If equal, the DrvBlkCount 1 , DrvBlkCountO is the 



; can ' t have a 0-block devii 



Ida 


DrvBlkCountl,y 


tay 




Ida 


#0 


clc 




bra 


sExit 


FullSiz 


e: 


Idx 


#5FF 


Idy 


#$FF 


Ida 


#0 


clc 




sExit: 




.IF DEBUG 


php 




pha 




jsr 


DSString 


-byt 


e "Retd:",0 


tya 




jsr 


DSByte 


txa 




jsr 


DSByteCRLF 


pla 




pip 




.ENDIF 





;X gets low byte of siz 
;Y gets high byte of si 



the carry's state 



ecover the carry 



ReadBlock - Read a block from device into i 

pd Command Block Data $42 - $47 

X = requested slot number in form $n' 

Output : 

A = ProDOS read return code 
Carry flag: = Okay, 1 = Error 

ZeroPage Usage: 
$EF 

w/DEBUG enabled: $EB, $EC, $ED, $EE 
Note: location $EF is saved and rest. 

ReadBlock: 
.IF DEBUG 

jsr DSString 

.byte " Rd", 

jsr DisplayParms 
.ENDIF 

Ida pdlOBufferH 

pha 

Ida zptl 

pha 

.IF DEBUG 

Ida CheckSumHigh 
pha 

Ida CheckSumLow 
pha 
.ENDIF 



= slot I to 7 



]s 



ReadBlockCo 



.IF DEBUG 

ply 

sty CheckSumLow 

ply 

sty CheckSumHigh 
.ENDIF 

ply 

sty zptl 

ply 

sty pdlOBufferH 
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0OCB9E:i 
0OCB9F: 
0OCB9F: 
0OCB9F: 
0OCB9F: 
0OCB9F: 
0OCB9F: 
0OCB9F: 
0OCB9F:; 
0OCBA2:; 
0OCBA5: 
0OCBA5: 
0OCBA5:i 
0OCBA7i^ 
OOCBAA: 
OOCBAAii 
OOCBAC:^ 
OOCBAF:; 
0OCBB2: 
0OCBB2:] 
0OCBB5:; 
0OCBB7:( 
0OCBB9:I 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
OOCBBB: 
0OCBBB:i 
OOCBBD:; 
OOCBBE:! 
OOCBBF: 
OOCBBF: 
OOCBBF: 
OOCBBF: 
0OCBBF:i 
OOCBCl:) 
0OCBC3:i 
0OCBC5: 
0OCBC5: 
0OCBC5:] 
0OCBC8:; 
OOCBCA:; 
OOCBCC:! 
OOCBCE: 
OOCBCE:] 
OOCBDl:^ 
0OCBD3:( 
0OCBD4: 
0OCBD4: 
0OCBD4: 
0OCBD4: 
0OCBD4: 
0OCBD4: 
0OCBD4: 
0OCBD4:] 
0OCBD7:! 
0OCBD9: 
0OCBD9: 
0OCBD9: 
0OCBD9: 
0OCBD9: 
0OCBD9: 
0OCBD9:( 
OOCBDA:! 
OOCBDC:] 
0OCBDE:( 
OOCBEO:! 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2: 
0OCBE2:i 
0OCBE4:: 
0OCBE5:i 
0OCBE6: 
0OCBE6: 
0OCBE6: 
0OCBE6: 
0OCBE6: 
0OCBE6: 



78 CC 
4D CC 



8F CO 

78 CC 



rts 

ReadBlockCore: 

.IF DEBUG 

stz CheckSumLow 
stz CheckSumHigh 

.ENDIF 

jsr IDEWaitReady 
jsr Block2LBA 



sta ATADataHigh,x 

Ida #ATACRead 

sta ATACommand, x 

jsr IDEWaitReady 

Ida ATAStatus,x 

and #S09 

cmp #$01 

ndOK 



the device ' s ta, 
on ProDOS addres, 



; Issue the read command to the dr: 
;Wait for BUSY flag to clear 



; Check for error response from devici 
;If DRQ=0 and ERR=1 a device error c 



.IF DEBUG 

; warning this debug code trashes the Ace 

jsr DSString 

-byte " Err!", 

Ida ATAError,x 

jsr DSByteCRLF 
.ENDIF 



The drive has returned , 
Ida #PRODOS 10 ERROR 



rCommandOK : 

Idy #2 

sty zptl 

Idy #0 

rLoop: 

Ida ATAStatus,x 

bmi rLoop 

and #$08 

beg rShort 

Ida ATADataLow,x 

sta (pdlOBuffer) ,y 



;Note: not using IDEWaitReady, i 
;Wait for BUSY (bit 7) to be ze. 
;get DRQ status bit 
;if off, didn't get enough data 



.IF DEBUG 


Clc 




adc 


CheckSumLow 


sta 


CheckSumLow 


.ENDIF 




Ida 


ATADataHigh,x 


sta 


(pdlOBuffer) ,y 


.IF DEBUG 


adc 


CheckSumHigh 


sta 


CheckSumHigh 


.ENDIF 




iny 




bne 


rLoop 


inc 


pdlOBufferH 


dec 


zptl 


bne 


rLoop 


.IF DEBUG 


jsr 


DSString 


-byt 


e " Chk$",0 


Ida 


CheckSumHigh 


jsr 


DSByte 


Ida 


CheckSumLow 


jsr 


DSByteCRLF 


.ENDIF 




Ida 


#0 


clc 




rts 




; The Block was short. 


rShort : 




.IF DEBUG 


jsr 


DSString 



code to PRODOS 
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0OCBE6: 

0OCBE6: 
0OCBE6: 
0OCBE6. 
0OCBE6. 
00CBE5. 
00CBE6. 
0OCBE6: 
0OCBE6: 
0OCBE8. 
00CBE9. 
OOCBEA; 
OOCBEA; 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA; 
OOCBEA; 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA; 
OOCBEA; 
OOCBEA: 
OOCBEA; 
OOCBEA; 
OOCBEA; 
OOCBEA; 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEA: 
OOCBEC. 
OOCBED: 
OOCBEF: 
OOCBFO. 
OOCBFO. 
OOCBFO: 
OOCBFO: 
OOCBFO: 
OOCBFO: 
OOCBFO. 
OOCBFO. 
OOCBFO. 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF3: 
0OCBF4: 
0OCBF6. 
0OCBF7. 
0OCBF9: 
OOCBFA; 
OOCBFA: 
OOCBFA: 
OOCBFA: 
OOCBFA; 
OOCBFA; 
OOCBFA; 
OOCBFA: 
OOCBFC. 
OOCBFF. 
OOCBFF. 
OOCBFF. 
0OCC02. 
0OCC05. 
0OCC05. 
0OCC05: 
0OCC07: 
OOCCOA: 
OOCCOD: 
OOCCOD: 
OOCCIO: 
0OCC12: 
0OCC14. 
0OCC16. 
0OCC16: 
0OCC16: 
0OCC16: 
0OCC16: 
0OCC16: 
0OCC16: 
0OCC16: 
00CC16: 
00CC16: 
00CC16: 



A5 45 

48 
A5 EF 



A9 00 
9D 80 CO 



78 CC 
4D CC 



A9 30 
9D 8F CO 

20 78 CC 

BD 8F CO 
29 09 
C9 01 

DO 04 



-byte " Short blk", 

Ida zptl 

jsr DSByte 
tya 

jsr DSByteCRLF 
.ENDIF 

Ida #PRODOS 10 ERROR 



WriteBlo 



pd Command Block Data $42 - $47 

X = requested slot number in form $n' 

Output : 

A = ProDOS write return code 
Carry flag: = Okay, 1 = Error 

ZeroPage Usage: 
$EF 

w/DEBUG enabled: $EB, $EC, $ED, $EE 
Note: location $EF is saved and rest. 

WriteBlock: 
.IF DEBUG 

jsr DSString 

-byte " Wt", 

jsr DisplayParms 
.ENDIF 

Ida pdlOBufferH 

pha 

Ida zptl 

pha 

.IF DEBUG 

Ida CheckSumHigh 
pha 

Ida CheckSumLow 
pha 
.ENDIF 



= slot I to 7 



]s 



WriteBlockCo 



.IF DEBUG 

ply 

sty CheckSumLow 

ply 

sty CheckSumHigh 
.ENDIF 

ply 

ply 

sty pdlOBufferH 



WriteBlockCore: 

.IF DEBUG 

stz CheckSumLow 
stz CheckSumHigh 

.ENDIF 

Ida #0 



ATADataHigh,x 



IDEWaitReady 
Block2LBA 



Ida #ATACWrite 

s ta ATACommand x 

jsr IDEWaitReady 

Ida ATAStatus,x 

and #S09 

cmp #$01 



Clear the high byte 
data latch 



jf the 16 bit interfa 



IDE task file 



; Check for 
;if DRQ=0 



.IF DEBUG 

/warning this debug code trashes the Ace 

jsr DSString 

-byte " Err! :",0 

Ida ATAError,x 

jsr DSByteCRLF 
.ENDIF 



The dr 
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0OCC16: 
0OCC18: 
0OCC19: 
OOCCIA: 
OOCCIA: 
OOCCIA: 
OOCCIA: 
OOCCIA: 
OOCCIC. 
OOCCIE: 
OOCC20. 
OOCC20. 
OOCC20: 
0OCC23: 
0OCC25: 
0OCC27: 
0OCC29: 
0OCC29: 
0OCC2B: 
0OCC2C: 
0OCC2C: 
0OCC2C: 
0OCC2C: 
0OCC2C: 
0OCC2C: 
0OCC2C: 
0OCC2C: 
0OCC2D: 
0OCC2F: 
0OCC32. 
0OCC32. 
0OCC32. 
0OCC32: 
0OCC32: 
0OCC32: 
0OCC32. 
0OCC33: 
0OCC36: 
0OCC36: 
0OCC39: 
0OCC39: 
0OCC3C: 
0OCC3C: 
0OCC3C: 
00CC3D: 
0OCC3F: 
00CC41: 
0OCC43: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC45: 
0OCC47: 
0OCC48: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC49: 
0OCC4B: 
0OCC4C: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 



AO 02 
84 EF 

AO 00 



BD 8F CO 
30 FB 
29 08 
FO 20 



Bl 



Bl 44 
9D 80 CO 



68 

3C 81 CO 

9D 88 CO 

3C 82 CO 



C8 

DO El 
E6 45 
C6 EF 
DO DB 



Ida tPRGDQS 10 ERROR 



ndOK: 

Idy #2 

sty zptl 

Idy #0 

Ida ATAStatus,x 

bmi wLoop 

and #$08 

beq wShort 

Ida (pdlOBuffer) ,y 
pha 

.IF DEBUG 

adc CheckSumLow 

sta CheckSumLow 
.ENDIF 



Ida (pdlOBuffer) ,y 

sta ATADataHigh,x 

.IF DEBUG 

adc CheckSumHigh 

sta CheckSumHigh 
.ENDIF 

pla 

bit SetCSMask,x 

sta ATADataLow,x 

bit ClearCSMask,x 



;Note; not using IDEWaitReady, i 
;Wait for BUSY (bit 7) to be ze 
;get DRQ status bit 
;if off, didn't get enough data 



;any access sets mask bit to block IDE -CSO o 

; I/O read to drive 

/Remember that all write cycles are 

; preceded by a read cycle on the 6502 

;Set back to normal, allow CSO assertions on 

; read cycles 



bne wLoop 




inc pdlOBufferH 




dec zptl 




bne wLoop 




.IF DEBUG 




; Display the Checksum 




; warning this debug code t 


jsr DSString 




-byte " Chk$",0 




Ida CheckSumHigh 




jsr DSByte 




Ida CheckSumLow 




jsr DSByteCRLF 




.ENDIF 




Ida #0 




clc 




rts 




; The Block was short, r 


etu 


wShort : 




.IF DEBUG 




; Display "W:Short" 




jsr DSString 




.byte " W:Shrt:", 




Ida zptl 




jsr DSByte 




tya 




jsr DSByteCRLF 





code to PRODOS 



.ENDIF 

Ida #PRODOS 10 ERROR 



Block2LBA - Translates ProDOS block# into LBA and programs devic 
registers. 



pd Command Block Data $42 - $47 

X = requested slot number in form $n0 where n = slot I to 7 

Y = $0n (n = slot#) for accessing scratchpad RAM; 



ZeroPage Usage: 
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0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D1 
0OCC4D: 
00CC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D: 
0OCC4D:i 
0OCC4F: 
0OCC4F:^ 
0OCC52: 
0OCC52: 
0OCC52: 
0OCC52: 
0OCC52: 
0OCC52: 
0OCC52: 
0OCC52:] 
0OCC55:; 
0OCC57:' 
00CC59:1 
0OCC5B:J 
0OCC5D1 
0OCC5D:: 
0OCC5E:( 
OOCC60:! 
0OCC631 
0OCC63:i 
0OCC65:i 
0OCC67:; 
0OCC6A: 
0OCC6A:] 
0OCC6D:i 
0OCC6F:i 
0OCC72: 
0OCC72:i 
0OCC74:! 
0OCC77:i 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78: 
0OCC78:] 
0OCC7B:; 
00CC7D:i 
0OCC7E:i 
0OCC7F:i 
0OCC8O:( 
0OCC81:( 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82: 
0OCC82:: 
0OCC83:; 
0OCC86:i 
0OCC88: 
0OCC88:^ 
0OCC8B: 
0OCC8B:i 



8C CO 

F8 04 

00 
8D CO 



CPU Registe 



changed: A, P 



This function translates the block number sent in the PRODOS 
packet, into an ATA Logical Block Address (LBA) . 
The least significant 16 bits becomes the ProDOS block*. 
The most significant 16 becomes the ProDOS Drive # 

A ProDOS block and a ATA sector are both 512 bytes. 

Logical Block Mode, the Logical Block Address is interpreted 
LBA07-LBA0O; Sector Number Register D7-D0. 
LBA15-LBA08: Cylinder Low Register D7-D0. 
LBA23-LBA16: Cylinder High Register D7-D0. 
LBA27-LBA24: Drive/Head Register bits HS3-HS0. 



Block2LBA: 
Ida #$E0 
sta ATAHead,. 



;1, (LBA), 1, (Drive), LBA 27-24, where LBA=1 
; Drive=0 

;Talk to the Master device and use LBA mode. 
; Remember that this write will seen by both 
; the master and slave devices. 



; Add BLOCKOFFSET to the ProDOS block number to offset the first drive block 
; use. This keeps the device's first BLOCKOFFSET blocks free, which usually 
; includes a MBR at block 0. 

Ida DrvMiscFlags,y ; bit 7 = raw block access 

and #S80 
eor #$80 
beq rawBlocks 
Ida #BLOCKOFFSET 
rawBlocks: ; A = $00 or BLOCKOFFSET 



clc 

adc pdBlockNumber 

sta ATASector,x 

Ida pdBlockNumberH 
adc #0 

sta ATACylinder,x 

Ida DriveNumber, y 
adc #0 

sta ATACylinderH,x 



ATASectorCnt,. 



oDOS Low block # into LBA 0-7 



nt for any overflow i 
ProDOS High block # 



nt for overflow 
LBA bits 23-16 



LBA 0-7 
nto LBA 15-8 



IDEWaitReady - Waits for BUSY flag to cle 

X = requested slot number in form $ 
Carry flag = DRQ status bit 
ZeroPage Usage: 



DRQ bit status 



= slot 1 to 7 



changed: A, P 



IDEWaitReady: 

Ida ATAStatus,x 
bmi I DEWa i t Ready 



;Wait for BUSY (bit 7) to be zero 

; shift DRQ status bit into the Carry bit 



CheckDevice - Check to see if , 

X = requested slot numbe 
Output : 

Carry flag: = Device P 



e is attached to the interfac 
rm $nO where n = slot 1 to 7 
1 = Device Missing 



CPU Regis- 
Checks ti 



changed: A, P 



if the drive status register is readable and equal to $50 
If so, return with the Carry clear, otherwise return with the carry set. 
Waits up to 10 sec on a standard IMhz Apple II for drive to become ready 



CheckDevice : 
phy 

bit ClearCSMask,. 
Ida #$E0 

sta ATAHead, X 



; reset MASK bit in 
;$E0 = [1, LBA, 1, 
; LBA=1, Drive=0 
;Make sure ATA mas 



PLD for normal CSO signaling 
Drive, LBA 27-24] where 
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0OCC8D: 
0OCC8D. 
OOCC90. 
0OCC92: 
0OCC94: 
0OCC96: 
0OCC98: 
0OCC9B. 
0OCC9C. 
0OCC9E: 
0OCC9E: 
0OCC9E: 
OOCCAO: 
OOCCAO: 
OOCCAl: 
0OCCA2: 
0OCCA3. 
0OCCA3. 
0OCCA3. 
0OCCA4: 
0OCCA5: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA6: 
0OCCA7: 
0OCCA7: 
0OCCA7: 
0OCCA8: 
0OCCA8: 
0OCCA8: 
OOCCAA: 
OOCCAC: 
OOCCAD: 
OOCCAF: 
OOCCBl: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2. 
0OCCB2. 
0OCCB2: 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2: 
0OCCB2. 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2. 
0OCCB2: 
0OCCB2. 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2. 
0OCCB2: 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2. 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 



BD 8F CO 
2 9 DO 

C9 50 

FO OD 
A9 C5 
20 A6 CC 
C8 
CO 64 



E9 01 
DO FC 



chkLoop: 

Ida ATAStatus,x 

and #%11010000 

cmp #$50 

beq DeviceFound 

Ida #WAIT_100ms 

jsr Wait 

iny 

cpy #100 



sec 

ply 



if BUSY= and RDY=1 and DSC=1 



; Wait 100ms for device to be ready 

; Wait up to 10 seconds for drive to be ready 
; This time may turn out to be much shorter o 
; accelerated Apple lis 



; set c = 1 if dr 



not attached 



DeviceFound: 
ply 



if drive is attached 



Wait - Copy of Apple's wait routine. Can't use ROM based routi 
ROM is not active when we need it. 



A = desired delay time, where Delay (us) = .5(5A'-2 + 27A + 26) 
or more usefully: A = (Delay[in uS]/2.5 + 2. 09)-^. 5 - 2.7 



CPU Registers changed: A, 
Wait: 



Wait2: 




pha 




Waits: 




sbc 


#1 


bne 


Waits 


pla 




sbc 


#1 


bne 


Wait2 



.IF DEBUG 



Display Farms - Display the pa 



of the ProDOS request 



oPage Usage: 



CPU Registe 

DisplayParms : 

jsr DSStrinq 
.byte " B:", 

Ida pdBlockNumberH 

jsr DSByte 

Ida pdBlockN umber 

jsr DSByte 

jsr DSStrinq 
.byte " U:", 
Ida pdUnitNumber 
jsr DSByte 



changed: A, P 



sr DSStrinq 
byte " A$", 



Ida pdlOBufferH 
jsr DSByte 



Ida pdlOBuffer 
bra DSByte 



DSStrinq - Sends a String to the Super Serial Card in Slot 2 

string must immediately follow the JSR to this function 
and be terminated with zero byte. 
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0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
00CCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
00CCB2: 
00CCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
00CCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
00CCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2; 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 



oPage Usage: 

MsgPointerLow, MsgPointerHi 



DSStrin 


g: 


phx 




tsx 




Ida 


MsgPointerLow 


pha 




Ida 


MsgPointerHi 


pha 




Ida 


StackBase+2,x 


clc 




adc 


#S01 


sta 


MsgPointerLow 


Ida 


StackBase+3,x 


adc 


#0 


sta 


MsgPointerHi 


dssl: 




Ida 


(MsgPointerLo 


beq 


dssend 


]sr 


DSChar 


inc 


MsgPointerLow 


bne 


dssl 


inc 


MsgPointerHi 



; save the X reg 
;put the stack po 



push zero page location on 


stack 


push zero page location on 


stack 


determine the location of 


message to display 



■ JSR pushes the last byte of its 



MsgPointerHi 
StackBase+3,x 
MsgPointerLow 
StackBase+2,x 



MsgPointerHi 
MsgPointerLow 



; fix up the return addres 

; restore zero page locatii 
; restore zero page locatii 
; return to location after 



DSByteCRLF - Sends a Hex byte followed by a CR LF to the Super Se 
Card in Slot 2 



A = Hex number to display 



CPU Registers changed: A, P 

DSByteCRLF: 

jsr DSByte 
DSCRLF: 

Ida #$0D 

jsr DSChar 

Ida #$0A 

bra DSChar 



DSByte - Sends a Hex byte to the Super 
A = Hex number to display 



CPU Registe 



changed: A, P 



DSByte 
pha 



Is 



Isr a 

jsr DSNibble 

pla 
DSNibble: 

and #$0F 

ora #$30 

cmp #$30+10 

bcc digit 

adc #5 
digit: 

bra DSChar 



DSChar 



char to the Super Serial Ca 
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0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2 1 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2: 
0OCCB2; 



ZeroPage Usage: 

CPU Registers changed: P 

DSBlank: 

Ida #$20 
DSChar: 

pha 

phy 

Ida mslot 

and #$0f 

tay ;Y reg now has $0n for acces, 

Ida SeriallnitDone, y 

cmp #SA5 

beq dscO 

; Init the serial port if sig byte is not $A5 . 

; Set up serial port on the Apple Super Serial card. Always , 
Ida #$lf 



sta 


$cOab 


Ida 


#$0b 


sta 


$cOaa 


Ida 


$c0a9 


Ida 


#$A5 


sta 


SeriallnitDon 


dscO: 




Ida 


$c0a9 


and 


#%00010000 


beq 


dscO 


ply 




pla 





; get byte back 
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